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PREFACE 


The purpose of this manual is to describe the SNA6 
Application Interface Facility (AIF). It is intended for the 
COBOL or Assembly language programmer at a DPS 6 or DPS 6 PLUS 
system. It provides the information necessary to write 
application programs to communicate with transaction programs 
running under Customer Information Control System (CICS) Or 
Information Management System (IMS). 


The major topics presented in this manual are: 
e Section 1 provides an introduction of AIF and the manual 


e Section 2 describes the LU Type 0 Session calls that are 
used in Assembly language, the session call control block, 
and Assembly language programming considerations 


e Section 3 describes the LU Type 0 COBOL session calls, the 
SNA work area in the WORKING-STORAGE-SECTION, and COBOL 
programming considerations | 


USER COMMENTS FORMS are included at the back of this manual. These forms are to be used to record 
any corrections, changes, or additions that will make this manual more useful. 


Honeywell disclaims the implied warranties of merchantability and fitness for a particular 
purpose and makes no express warranties except as may be stated in its written agreement 
with and for its customer. 


In no event is Honeywell liable to anyone for any indirect, special or consequential damages. 
The information and specifications in this document are subject to change without notice. 
Consult your Honeywell Marketing Representative for product or service availability. 
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Section 4 describes the LU Type 6.2 conversation verbs 
that are used in an Assembly language program, the verb 
parameter block, and Assembly language programming 
considerations 


Section 5 describes the LU Type 6.2 COBOL conversation 
verbs, the SNA work area in the WORKING-STORAGE-SECTION, 
and COBOL programming considerations 


Section 6 describes LU Type 0 restart logic and message 
resynchronization 


Section 7 describes Communications Network Management, SNA 
Operator Control (SOPR) services, and maintainability 
through various operating system utilities 


Appendix A presents a detailed description of the AIF 
product architecture 


Appendix B contains sample Assembly language programs 
demonstrating both LU Type 0 and LU Type 6.2 conversations 


Appendix C provides sample COBOL programs for both LU Type 
session calls 


Appendix D lists the LU Type 0 session call return codes 


Appendix E contains a listing of the Session Call Control 
Block (SCCB) template with offsets 


Appendix F lists the LU Type 6.2 conversation return codes 


Appendix G includes a listing of the Verb Parameter Block 
(VPB) template with offsets. 


A glossary is provided to explain the meaning of terms 
used within the text of this manual. 


This manual assumes the reader is familiar with the SNA 
networking system and COBOL or Assembly language programming. 
The reader needs to be familiar with the following Honeywell 
manuals: 


ONE PLUS COBOL 74 Language Reference Manual (Order No. 
HE3 4) 


One PLUS Advanced COBOL Compiler User's Guide (Order No. 
HE31) | 


ONE PLUS Assembly Language (MAP) Reference (Order No. 
HE38) 


In addition, the reader needs to be familiar with the SNA 
transaction program protocols used by your IBM distributed 
processing application. 
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The following syntax conventions are used in this manual: 


Syntax Conventions 
UPPERCASE CHARACTERS 


Angle brackets <> 


Brackets [] 


Braces {} 


Vertical line | 


Meaning 


Items in capital letters must be input as 
shown, for example, SCNOER. 


Items in lowercase letters enclosed in 
angle brackets < > describe what you need 
to supply; for example, <node name>. 


Items in square brackets are optional; 
for example, [sccb address]. 


Braces indicate that the user has a 
choice between two or more entries. At 
least one of the entries enclosed in 
braces must be chosen (unless the entries 
are also enclosed in square brackets); 
for example, {NORMAL|ABNORMAL}. 


Vertical bars separate the choices within 
braces. At least one of the entries 
separated by bars must be chosen (unless 
the entries are enclosed in square 
brackets); for example [{SYNC|ASYNC}]. 


The following conventions are used to indicate the relative 
levels of topic headings used in this manual: 


1 (Highest) 
2 
3 
4 


Heading Format 
ALL CAPITAL LETTERS, UNDERLINED 


Initial Capital Letters, Underlined 
ALL CAPITAL LETTERS, NOT UNDERLINED 


Initial Capital Letters, Not Underlined 
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Section 1 
INTRODUCTION 


The Systems Network Architecture (SNA) Application Interface 
Facility (AIF) allows a programmer to write COBOL or Assembly 
language programs to communicate with Customer Information 
Control System (CICS) or Information Management System (IMS) 
transaction programs at an IBM host. The applications at the 
DPS 6 or DPS 6 PLUS can be uSer-written, LU Type 0 or LU Type 6.2 
applications, or transaction processing routines. AIF offers 
SNA6 users access to information reSiding on an IBM host. 


This facility allows applications to interface to an SNA 
network at a high level. AIF manages data structures on behalf 
of the application program. However, some knowledge of SNA 
protocols is necessary. | 


To provide this level of interface, AIF supports session 
calls for Session Type 0 users and basic conversation verbs for 
Type 6.2 users. These session and verb callss are interface with 
a user's control block through monitor calls to SNA. Macrocalls 
are provided for the applications. 

This section discusses the following: 

@e The SNA Application Interface Facility 

® LU TYPE 0 sessions with Host Programming Considerations 

@® LU TYPE 6.2 conversations with Host Programming 

Considerations. 


ii | GR11-02 


HOW TO USE THIS MANUAL 


This manual is provides an application programmer at either a 
DPS 6 or DPS 6 PLUS system with the information necessary to 
write COBOL or Assembly language application programs to 
communicate with the IBM host CICS/IMS transaction processing 
programs for Type 0 and CICS transaction programs for Type 6.2. 


Section 2 describes the LU Type 0 session calls that are used 
in Assembly language, the session call control block, and special 
considerations in writing an Assembly language program using AIF. 


Section 3 describes the LU Type 0 COBOL session calls, the 
SNA work area in the WORKING-STORAGE-SECTION, and special 
considerations in writing a COBOL program uSing AIF. 


Section 4 describes the LU Type 6.2 conversation verbs that 
are used in an Assembly language program, the verb parameter 
block, and special considerations in writing an Assembly language 
program uSing AIF. | 


Section 5 describes the LU Type 6.2 COBOL conversation verbs, 
tne SNA work area in the WORKING-STORAGE-SECTION, and special 
eoneiaeratione in writing a COBOL program using AIF. 


Section 6 describes LU Type 0 restart logic and message 
-resynchronization. 


Section 7 describes Communications Network Management, SNA 
Operator Control (SOPR) services, and maintainability ‘through 
Data Base Augmented Real- Time Tracing System (DARTS). 


Appendix A presents a detailed description of the AIF product 
architecture. Appendix B contains sample Assembly language 
programs demonstrating both LU Type 0 and LU Type 6.2 
conversations. Appendix C provides sample COBOL programs for 
both LU Type session calls. Appenix D lists the LU Type 0 
session call return codes. Appendix E contains a listing of the 
Session Call Control Block (SCCB) template with offsets. 

Appendix F lists the LU Type 6.2 conversation return codes. 
Appendix G includes a listing of the Verb Parameter Block (VPB) 
template with offsets. 


A glossary is provided to explain the meaning of terms used 
within the text of this manual. 


APPLICATION INTERFACE FACILITY | 
Applications on a DPS 6 executing under the MOD 400 Executive 
Or applications on a DPS 6 PLUS executing under the HVS 6 PLUS 


Operating System can communicate with IBM hosts that use SNA 
network products. 
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AIF supports the application-to-application communications 
facilities available with CICS and IMS systems. AIF provides the 
communications support necesSary to implement the following: 


e User Assembly language and COBOL communication with CICS 
or IMS via LU Type 0 macrocalls 


@ User Assembly language and COBOL advanced program to 
program communication with CICS via LU Type 6.2 
conversation verbs. 


LU TYPE OQ SESSIONS 


AIF supports an application-to-application interface over a 
Session Type 0. The Session Type 0 is an interprogram Logical 
Unit (LU) defined within SNA. It is supported by both CICS and 
IMS and is used for communications between these subsystems and 
applications on several IBM processors. 


The Session Type 0 can uSe any feature of SNA that is defined 
by Session Type 0 FM profile 4 and TS profile 4. The SNA 
features that these sessions can use are further defined by how 
CICS treats a full function LU or how IMS treats a secondary LU 
programmable. 


The constraints on this type of session are imposed by CICS 
Or IMS, each of which has a slightly different set of rules 
governing the exchange of information. Since there are slight 
differences in implementing the macrocalls for CICS and IMS, it 
is important for the application programmer to know with which 
the application program is communicating and how the LU is 
defined. 


AIF praneacetous are allowed to perform any function through 
CICS or IMS; e.g., inquiry, update, etc. These IBM subsystems 
specify the order in which SNA requests and responses can be sent 
but impose no restrictions on what can be done over the session. 


Host Programming Considerations 


A Session Type 0 requires that both applications expect the 
same format and protocol. These applications must be written as 
two complementary halves of a transaction. They must agree on 
application protocols, transaction processor protocols, and the 
host GEN environment. 


Although host considerations are described in detail in the 
SNA6 Host System Programmer's Guide (GB88), the AIF programmer 
should be aware of the host terminal definition of the 
application with which he will be communicating. These 
definitions influence how the AIF session calls are issued and 
which parameters must be supplied with them. 
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The host views the application (LU) as a terminal, and 
defines it within tables. The following subsections list the 
host terminal definitions with which you will be concerned. © 
Check with the host system programmer to determine the definition 
of the terminal macro(s) that the IBM system uses. 


CICS TERMINAL CONTROL TABLE PARAMETERS 


This subsection describes the Terminal Control Table (TCT) 
parameters which are of interest to you if your application is to 
communicate with a CICS transaction program. 


BRACKET=YES 


This parameter indicates that bracket protocol is to be 
enforced for the LU/LU session. This parameter is 
required for a full function terminal. 


BUFFER=buffer size 


This parameter indicates the size of the receive buffer 
for the LU. This is the maximum data length the DPS 6 or 
DPS 6 PLUS application can receive. The buffer size 
specified to CICS indicates how CICS does chaining. 


_ RELREQ={YES|NO,YES|NO} 


This parameter instructs CICS whether to release the LU if 
it is requested by another application and whether 
disconnect requests are to be honored. If LUs are to be 
released to another VTAM application, the DPS 6 or DPS 6 
PLUS application may have to re-issue the INIT. 


RUSIZE=ru_ size 


This parameter specifies the maximum size of the request 
unit (RU) that the LU can receive. The size of the RU 
with relation to the buffer size determines how much 
chaining is done and how many receives one must do when 
not uSing the message completion option. 


TRMSTAT=term state 


This parameter indicates the type of activity that can 
occur at this LU. The terminal state determines whether 
the application can send to or receive from the host. 


IMS TERMINAL DEFINITION PARAMETERS 


The IMS terminal definitions control the protocol | 
conversation in the LU-LU Session to an even greater extent than 
the CICS terminal definitions. This subsection describes the 
parameters that are of particular interest to you if your 
application is to communicate with an IMS program. 
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COMPT,=(x[,y,2]) 


This parameter specifies the component types and the 
processing associated with that node. A node can have up 
to four components (n=1-4) and three subparameters for 
each component. For the purpose of writing AIF 
transaction programs, you only need to know the value of 
the first of these subparameters (x). The value of x can 
be either: 


Programl - IMS does not asSume program protection and 
can send consecutive messages without waiting for 
intervening input requests. 


Program2 - IMS assumes component protection and does 
not send consecutive mesSages without intervening 
input requests. 


OPTIONS=(termresp,acknowl,relreq) 


This parameter specifies certain communications associated 
with the LU. These options dictate some of the basic 
communication deSign of the DPS 6 or DPS 6 PLUS 
application. 


1. Terminal Response Mode Options (termresp). 


When an application operates in terminal response 
mode, all operations between the terminal (or 
application) and IMS stop when IMS receives a 
transaction and do not resume until IMS receives an 
acknowledgment that the application received IMS's 
reply. 


This option can be defined as follows: 


@€. TRANRESP: The transaction being executed can 
select terminal response mode. 


6b. NORESP: Terminal response mode is not used for 
any transaction. 


c. FORCRESP: Terminal response mode is forced for 
all transactions. 


2. Acknowledgment (acknowl) 


This specifies the mode of acknowledgment between the 
terminal (application) and IMS. This option can be 
defined as follows: 


a. ACK: This option indicates that transactions are 
recoverable and must be acknowledged. If this 
option is specified, the AIF application must 
request definite response on all input messages. 
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b. OPTACK: This option indicates that only input 
_ messages containing a Begin Bracket (BB) 
indicator are acknowledged with an outbound 
message containing an End Bracket (EB) 
indicator. If this option is specified a request 
by AIF for definite response is optional. 


3. Release Request (relreq) 


This parameter indicates whether IMS should release 
an LU if requested by another VTAM subsystem. This 
option can be defined as follows: 


a. RELRQ: This option specifies that IMS must honor 
requests from other VTAM subsystems and release 
the LU. — 


b. NORELRQ: This option specifies that IMS not 
release an LU when it is requested by another 
| subsystem. 
Refer to the IBM manual IMS/VS Programming Guide for Remote 
SNA Systems for further information about programming secondary 
LU Type 0 sessions to connect to IMS applications. 


LU TYPE 6.2 CONVERSATIONS © 


| AIF supports an advanced program to program communication 
interface over an LU Type 6.2 Conversation. The LU Type 6.2 is 
an interprogram Logical Unit (LU) defined within SNA. It is | 
Supported by CICS and is used for communications between 
transaction programs and network resources. 


The LU Type 6.2 can use any feature of SNA that is defined by 
LU Type 6.2 FM Profile 19 and TS Profile 7. The SNA features 
that these sessions can use are further defined by how CICS 
treats an LU 6.2 and the extent to which it has been implemented 
in AIF. 


The SNA features that these sessions can use are constrained 
only by the level of LU Type 6.2 functions that are incorporated 
in the program products. AIF supports the basic conversation 
implementation of LU Type 6.2. Applications must conform to the 
rules for basic conversations. For more information on LU Type 
6.2 programming considerations, refer to the appropriate IBM 
manuals listed in the front of this book. 


The AIF transactions are allowed to perform any Service or 
application function through CICS; e.g., inquiry, update, etc. 
An LU Type 6.2 application expects the same format and protocol 
on both sides of the conversation. These applications must be 
written as two complementary halves of a transaction. They must 
agree on application protocols, transaction protocols, and | 
conversation states. 
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Section 2 
PROGRAMMING 


LU TYPE 0 SESSIONS 
IN ASSEMBLY LANGUAGE 


This section describes the Assembly language session calls 
that are used to converse over a Session Type 0 with host 
transaction programs. Topics include: 


@ Session call format 
@® Programming considerations 
= Getting started 
~ Synchronous vs. Asynchronous Processing 


~ Creating a session call control block 
Checking the return code 


® Individual session calls 


.- Format 
- Descriptions 
- Return codes 


SESSION CALL FORMAT 


The session calls used by AIF are macrocalls provided by the 
DPS 6 or DPS 6 PLUS system. These session calls have a list of 
arguments that can be specified by the programmer or accepted in 
their existing form. If no arguments are specified, then all 
that is provided is the monitor call. AIF session calls follow 
the conventions for Assembly language as described in the ONE 
PLUS Assembly Language (MAP) Reference (HE38) manual. The 
session call can have an optional label if no label is used at 
least one blank space must precede the session call. 
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User-selected items are known as arguments. These arguments 
are positional within the session call macros. The order of 
positional arguments indicates the variables to which data is 

applied. Thus, the order of your arguments must be the same as 
the order of the positional arguments within the session call 
macro. 7 


The following rules govern the use of positional arguments: 


@® Omitted arguments that precede an included argument must 
be indicated by the presence of a delimiting comma for 
each omission. 


@ One Or more spaces must separate the macrocall name from 
its arguments, with a comma between each argument. (The 
horizontal tab character is equivalent to a space.) 


@e A semicolon at the end of a line indicates that the next 
line is a continuation line. 


In the following example, the first and third arguments have 
been omitted; their positions have been held by delimiting 
commas. Spaces separate the session call name from its 
arguments. | | | 


SSINIT ,'‘AIFNODE1',,'AA',SYNC 


The arguments for these session calls are found in the SCCB. 
An SCCB must be provided for each session call. These fields can 
be altered either during initialization or by including the 
appropriate arguments in the session call itself. | 

At the completion of each session call, when control is 
returned to the application, a return code is placed in register 
SR1. This return code indicates whether a session call has been 
completed error free. The application should check this return 
code after each session call to verify the return status of the. 
session call. Additional information, if desired, can be found 
in the output control word, found at the offset SC_OCT of the 
SCCB. | an 

When AIF is activated, it defines one or more pools of 
logical units (LU) according to the configuration file for that 
node. Each pool of LUs is reserved for a specific host CICS or 
IMS system. AIF can either start a session to the host system at 
initiation or it can wait for an application to request a 
session. The time of sesSion initiation 1s a configuration 
option. i 
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When an application requests to initiate a session with an 
LU, AIF checks the availability of that LU and asSsigns it if it 
is available. If the specified LU is unavailable, AIF checks 
first for an available reserved LU, second for an available | 
preestablished LU, and then for any available LU to assign to the 
session. AIF either returns the address of the LU with which the 
session is started, or rejects the request if there is no LU 
available. 


An application gains access to a host-initiated session by 
executing a SSACPT session call. Executing the accept session 
call causes the application to be connected to a host-initiated 
session and causes the LU to send a positive response to the 
host, accepting the session. 


PROGRAMMING CONSIDERATIONS 


Many of the programs that use AIF session calls are written 
in Assembly language. These applications may be reentrant and 
may not require more than one occurrence of a given macrocall. 


Special consSiderations that the programmer must bear in mind 
are discussed in this section: 


Getting started 

Synchronous vs. Asynchronous procesSing 
Creating a session call control block 
HoSt-initiated sessions 

Checking the return code. 


Getting Started 


When uSing AIF session calls in an Assembly language program, 
remember the folowing steps: 


l. In order to use the session calls and utility macros 
included with AIF, you must first make them available to 
your program. When beginning your program, include the 
following statement: 


LIBM '>>LDD>MACROS>MAC_USER' 


2. Then issue the macrocalls SSSCCB and SSAIRC to define the 
SCCB and return codes in memory. 


3. You must also set aside a workspace with room for the 


stack, the SCCB, and your send/receive buffer, as in the 
following example: 
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* 


* WORK LOCATIONS: STACK, SCCB, & SEND/RECEIVE BUFFER 
k | | ; 


WKSP | EQU 0. BEGINNING OF WORKSPACE 

MYSTACK EQU WKSP+50 REGISTER STACK 
 CNTLWD EQU MYSTACK FOR PROGRAM CONTROL 

MYSCCB EQU CNTLWD+1 BEGINNING OF SCCB 

BUFFER EQU MYSCCB+SC_ SIZ SEND/RECEIVE BUFFER 

BUF SZ EQU 2000 BUFFER SIZE 

WKSPS2Z  EQU BUFFER+BUF SZ WORKSPACE SIZE 


Synchronous vs. Asynchronous Processing 


AIF session calls can be processed either synchronously or 
asynchronously. 


SYNCHRONOUS PROCESSING 


Synchronous processing implies that when the application 
passes an instruction to AIF for processing, it waits for the 
application to complete that instruction before continuing. 


In Figure 2-1, a S$SINIT session call has been issued 
synchronously. The application completes its segment of 
processing and passes the request to AIF. AIF executes the 
SSINIT completely and passes the return code to the application. 
The application does not process other instructions while AIF is 
executing the SSINIT session call. 


SYNCHRONOUS PROCESSING 


ISSUES 
SESSION 


CALL 
APPLICATION CONTINUES PROCESSING 
PROGRAM SSS ee . <oneneseeenaemensnememnnemasenernsnninemnneneanssereneemneneceer IIE 
ACCEPTS THE 
REQUEST (DONE} 


AIF ] i 
i t 


' L 
5 EES TET REELED SENSI IS TORT 


EXECUTES SESSION CALL 
85-271 


Figure 2-1. Synchronous Processing 


ASYNCHRONOUS PROCESSING 


Asynchronous processing implies that when the application 
passes an instruction to AIF for processing, the application 
continues to process other instructions while it waits for AIF to 
complete that instruction. 
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In Figure 2-2, a SSINIT session call has been issued 
asynchronously. The application completes its segment of 
processing and passes the request to AIF. While AIF executes the 
SSINIT session call, the application is processing other 
instructions. In order for the application to find out that AIF 
has finished executing the SSINIT session call, the application 
must execute a SSWANY or a SSTEST session call. 


ASYNCHRONOUS PROCESSING 
a SSWANY 
'] 


CALL 


ACCEPTS 
THE REQUEST DON 
| | 
AIF | i 
| { 


EXECUTES SESSION CALL 
85-272 


Figure 2-2. Asynchronous Processing 


Each time you issue an asynchronous order, you must check the 
receive buffer before you can receive information. You can do 
this by either the SSTEST or the SSWANY session call. These two 
session calls differ as follows: 


1. The SSTEST session call checks to see if there is 
information in the queue to be received and immediately 
reports back to the application. This call can be 
executed any time you wish to check for an outstanding 
order, and as often as you wish to check, because the 
application regains control immediately after the test is 
completed. 


2. The SSWANY session call checks for information on the 
queue and waits until there is information waiting before 
it returns control to the application. 


Session Call Control Block 


Communication between the application program and AIF is 
through the application-provided SCCB. Following a SSINIT or a 
SSCACPT, the same SCCB is used for all subsequent session calls 
until a particular session is terminated. If a program is to run 
multiple sessions, you must provide a separate SCCB for each 
session. 


When the application provides parameters with a given 
macrocall, the macrocode updates the appropriate SCCB fields 
before executing an AIF monitor call. If any of the fields have 
been changed, the new values are in the SCCB when you reexamine 
it; 
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The first parameter of each macro is the location of the 
SCCB, except in the case of $SWANY. If not specified as the 
first parameter of the macro, this pointer must be in register 
SB4. Allowable formats for this parameter and all address 
pointers are the same as found in the “Addressing Parameters" 


section of the System Programmer's Guide, Vol. 2. 


| Where a value rather than an address is provided in a 
parameter, allowable formats are: | 


1. (*)$B1(.$R) 


2. LABEL 

3. =SR1 

4. =literal 
ae !' LABEL 


When you establish a session through a SSINIT or a S$SACPT, 
you must supply an SCCB. This SCCB is used for all session calls 
for this session. The application can move the session call 
parameters to the SCCB before executing the session call (see 
example 1 below). The programmer can also provide the parameters 
for the session call in the macro itself (see example 2 helow). 


The following examples show both methods of creating an SCCB 
for the SSINIT session call. Which convention you choose to 
follow depends upon the requirements of your program. 


Example 1: 


The following example shows the parameters in the SCCB being 
loaded before issuing the session call. Offsets to the SCCB 
are provided in the displacement macro S$SSCCB. (Refer to the 
SCCB template in Appendix E for appropriate offsets.) | 


NODENM DC. 'AIF505 ' 
-HLU.NM DC_ 'CICS ' 
STD NM DC ‘AB! 


LDB S$B4, $B6.SCCB Load SCCB address to $B4 

LDI NODENM Get first 4 bytes of nodename 

SDI §$B4.SC_NOD Store first 4 bytes of 
nodename in SCCB 

LDI NODENM+2 Get second 4 bytes of nodename 

SDI $B4.SC_NOD+2 Store second 4 bytes of 
nodename in SCCB 

LDI HLU_NM Get first 4 bytes of Remote LU 
name | 

SDI $B4.SC_RLN Store first bytes of Remote LU 

| name 

LDI HLU_NM+2 Get second 4 bytes of Remote 

LO name 
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SDI $B4.SC_RLN+2 Store second byres of Remote 


LU name 
LDR S$R2, STD NM Get STD name 
STR SR2.SC_STD Store STD name in SCCB 
LBT $B4.SC_ICT,SCRTNS Set bit for synchronous 
execution 


SSINIT 
Example 2: 


The following example shows the SSINIT session call with the 
Same parameters specified within the macrocall. 


SSINIT , 'AIF505','CICS','AB',SYNC 
Host-Initiated Sessions 


AIF supports host-initiated sessions; that is, it accepts 
unsolicited binds. In order to accept an unsolicited bind, an LU 
must be reserved with the HOST _INIT SESS parameter specified as Y 
(YES) in the LU entry of the configuration file. 


The program name, node name, STD name, and base level are 
provided to the application program by AIF via the standard 
operating system parameter list (refer to the System Programmer's 
Guide, Vol. 2). When the application program begins execution, 
it must issue a SSACPT session call as the first session call, 
providing the STD name and the node name for the LU to be used. 
The node name and the STD name provided with the S$SACPT call must 
be the same aS the parameters passed by AIF. 


After the SSACPT call is executed, the application is in 
receive state. The SSACPT session call allows AIF access to a 
host~-initiated session. The application must execute a receive 
to have access to the bind. AIF associates the first unsolicited 
bind (host-initiated session request) to the first SSACPT session 
call from the task group that AIF spawned. 


An unsolicited bind can be for a program deSignated in the 
AUTO_ATTACH entry of the AIF configuration or it can be.any other 
unsloicited pine sent from the host. 


When AIF receives an unsolicited bind for a specific LU, AIF 
checks the LU entry for an AUTO ATTACH program. If it finds one, 
AIF spawns a group with the program name as the lead task, and 
passes to the lead task the STD name, node_name, and base_ level 
used in the spawn group. If AIF does not find an AUTO ATTACH 
program in the LU entry, it accepts the session and looks for the 
program name in the first four bytes of the first record 
received, then spawns a group based on the ATTACH PROGRAM entry. 
If none is provided, default values are used to spawn the group. 
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The application can issue multiple SSACPTS to check for 
additional host-initiated sessions intended for this 
application. For an application to accept more than one session, 
all LUs that can receive binds for that application must be 
reserved LUs with HOST _INIT_SESS=Y. Each of these LUs must have 
the same group id specified in the LU entry in the configuration 
file. Note, if multiple SSACPTS are used, multiple SCCB should 
also be used. 


NOTE 


In order to execute a START UP.EC instead of an 
attached program, you must create an attach 
program table entry with a dummy name (e.g., 
ATTACH PROG=ABC), specifying the appropriate spawn 
group parameters, and include an ALIAS for ABC 
(eg., ALIAS= > >SYSLIB2>EC?EXECL) to execute the 

_ START _UP.EC specified in the home directory. 


Refer to SNA6 Network Configuration for further 
information. 


Checking the Return Code 


3 After a session call is executed, AIF returns a return code 
to the Session Call Control Block (SCCB) to indicate how the call 
was completed. The application should examine this return code 
at the completion of each session call to determine if the call 
has been completed error free. 


The return code has 16 bits and is placed in register S$Rl by 
AIF before control is returned to the application program. The 
return code can also be found in SC_ RCD. | 


Bits 0 through 4 have special meaning and represent general 
AIF return codes that could occur for any session call. These 
bits should be examined individually, then "masked out" so that 
the application can examine the remaining bits. If the bit is 
on, then the return code indicated is true. The following masks 
are provided in the SSAIRC macrocall for checking each of the 
first five bits as follows. 


Bit 0 RCABRT 


The session has been terminated. An SOPR command has 
been entered that caused the session to terminate, or the 
session has been unbound by the host. The reason for 
this termination can be found in the “abort reason" code 
in the SCCB (SCCB.SC_ ABT). 
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Bit l RCSTOP 


An SOPR STOP command has been received. If the session 
is still active (bit 0 = 0), then check the SC_TIM field 
in the SCCB to determine the time at which the session 
ends. During this time the application can continue to 
process, but should normally terminate. 


The time found in the TIME argument (SCCB.SC_TIM) is the 
wall clock time in standard 48-bit format, at which the 
session terminates. 


Bit 2 RCRINT 


An interrupt has been received. The interrupt type is 
found in SC_INT in the SCCB. 


There are three categories of interrupt: 


1. Expedited or normal flow data flow control commands 
2. Communications Network Management data 
3. Control information passed to application by AIF. 


If sense data is present, it is found in SCCB.SC_ESD. 
Bit 3 RCSCNL 


The call has been cancelled; it is not processed. If the 
application desires the order to be processed, the call 
must be reexecuted. 


Bit 4 RCSCMP 
The call has been completed. 


A return code can indicate more than one condition occurring 
at the same time. For example, it can indicate both an interrupt 
and a completed call, a session abort and a completed call, or no 
session abort and a cancelled call. 


The masks RCABRT, RCSTOP, RCRINT, RCSCNL, and RCSCMP are 
provided for your convenience in checking bits 0 through 4... 
After you have checked these bits, null them out and examine bits 
5 through 15. If you choose to null these bits by usSing RCMASK, 
which is provided in the software (RCMASK=07FF), use the 
following statement: 


AND SR1,=RCMASK 
Bits 5 through 15 contain the return code for a completed or 
cancelled call. One way of doing this part of the return code is 
to issue a "compare" instruction as follows: 


CMR SR1 ,=RMNOER Checks for "No error" code 
BE CONT _1 
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If the Return code contains a "no error" message, branch to 
the next segment of the program. If the return code contains an 
error condition, you might decide to record it to an error-out 
File, branch to another segment of the program, or shut down 
completely. | 


If during asynchronous processing an error is detected 
immediately (e.g., a parameter is incorrectly specified), the 
return code provides the error and the call is cancelled. 
However, if during asynchronous processing AIF issues the monitor 
call before an error is detected, the return code returns with a 
zero indicating no error has been detected. However, an error 
could occur elsewhere (e.g., at the host) and AIF would not be 
aware of it. In order to determine if an error occurs with the 
session after AIF has performed all of its error detection, issue 
either a SSTEST or a SSWANY for the return code. | 


Appendix F contains a complete list of return codes. These 
labels and their hexadecimal values can be found in the macro: 
-$SAIRC (AIF Return Codes). | 
SESSION CALLS 

Table 2-1 contains a list and description of the session 
calls used by AIF in an Assembly language program. The format of 


these session calls is detailed on the following pages along with 
a discussion of the input arguments and an output description. 


Table 2-1. AIF Session Calls 


SSACPT 
SSCASR 
SSGTAT 
SSINIT 
SSPOLL 
SSRECV 
SSRI 


SSSEND 


SSSI 

SSSRSP 
SSTERM 
SSTEST 
SSWANY 
SSACEB 
SSEBAC 


Accept Session 

Cancel Outstanding Asynchronous Request 
Get Session Attributes 

Initiate or Restart a Session 

Test for LU associated with task group 
Receive message in application's buffer 


Read Interrupt 


Request AIF to send a mesSage or message 
segment 

Send Interrupt | 

Caller instructs AIF to send a response 
Terminate session © 

Test conditions — 

Wait on any event 

Converts ASCII to EBCDIC 


| Converts EBCDIC to ASCII 
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$SACPT 


SSACPT - Accept Session Call 


The SSACPT session call causes AIF to connect the local 
application to a host initiated session. 


FORMAT : 
[label] SSACPT [sccb pointer] Pl: $B4 
[,node name] P2: SC_NOD 
[,std name] P3: SC_STD 
ARGUMENT : 


sccb pointer 


This parameter contains a pointer to the address of the 
SCCB. If this parameter is missing, the address is 
assumed to be contained in register SB4. 


node name (SC_NOD) 


std 


Identifies the AIF node to which the application is 
directing this session call. This field contains eight 
alphanumeric characters. If you are loading the SCCB 
yourself and your node name has fewer than eight 
characters, this field must be left-justified and 
space-filled. 


name (SC_STD) 
The configured Session Type Descriptor (STD) which lists 


the attributes of the session to be established. This 
field consists of two alphanumeric characters. 


DESCRIPTION: 


The SSACPT session call causes AIF to connect the local 
application to a host-initiated session if there is one 
available. If no session is available, AIF returns and 
continues processing. The LU to which this bind refers 
most be a reserved LU. 


If your application is part of a host-initiated session, 
the SSACPT session call should be the first call 
executed. When the SSACPT call is completed, the session 
is in receive state. 7 
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NOTE 
This call is always made synchronously. 


RETURN CODES: 


The application should check the return code after each 
execution of a session call. Bits 0 through 4 have special 
meaning and represent general AIF return codes that could 
occur for any session call. These bits should be examined 
individually, then "masked out" so that the application can 
examine bits 5 through 15. 


In addition to the general return codes, the following values 
are possible: 


Description 


Value Label 


0000 $RMNOER No error 

0019 RMACTO ACCEPT timed out 

0040 RMINOD Invalid node name 

0099  RMISTD Invalid STD name 

OO9A RMILUT Invalid LU type in STD 
009B RMNOAT No LU attached 


session id (SC_SID) 


This two-word field is supplied by AIF after it accepts 
the session request. The first word is the session group 
name, which is assigned by AIF to each of the sessions 
running in this session group. This value is used by AIF 
to return a unique one-word session identifier for this 
session. This value is stored in the second word. This 
field is reserved for system use and must never be 
altered by the application. 


maximum ru size (SC_MRU) 


This field shows the RU size that is returned. 
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SSCASR - Cancel Asynchronous Request 


The SSCASR session call causes AIF to cancel an outstanding 
asynchronous request, if possible. 


FORMAT: 

[label ] SSCASR [sccb pointer] Pl: SB4 
ARGUMENT : 
sccb pointer 


This parameter contains a pointer to the address of the 
SCCB. If this parameter is missing, the address is 
assumed to be contained in register SB4. 


DESCRIPTION: 


The $SCASR session call cancels an asynchronous request, 
if there is one outstanding. If the previously executed 
asynchronous request were completed when the SSCASR 
session call was executed, then the return code from the 
SSCASR session call is the return code for the completed 
asynchronous session call. If the previously executed 
asynchronous session call was not completed when the 
SSCASR session call was executed and AIF succeeded in 
cancelling the request, the return code from the S$SCASR 
session call indicates that the session call has been 
cancelled. 


If there is no asynchronous session call outstanding when 
the $SCASR session call is executed, then the return code 
is RCNOUT (no outstanding session call). 


NOTE 


The SSCASR sesSion call cannot be used to cancel a 
SSINIT session call, even if it has been executed 
asynchronously. 


RETURN CODES: 


The application should check the return code after each 
execution of a session call. Bits 0 through 4 have special 
meaning and represent general AIF return codes that could 
occur for any session call. These bits should be examined 
individually, then "masked out" so that the application can 
examine bits 5 through 15. 
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In addition to the general return codes, the following values 
are possible: a | 


Value Label Description 
0017 RMNOUT No outstanding asynchronous call 
NOTE 


If the previously executed asynchronous call were 
already completed, the return code is for that 
call. 


Example: 

In the following example, the application requests that AIF 

cancel an outstanding asynchronous request. AIF assumes that 
register $B4 is pointing to the SCCB of the session cali to 

be cancelled. 


ENDIT | SSCASR 
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SSGTAT - Get A Session Attribute 


The SSGTAT session call provides the application with attri- 
bute information for the session specified in the SCCB pointer. 


FORMAT: 
[label] SSGTAT [sccb pointer] Pl: S$B4 
[,attribute buffer] P2: SC_ BUF 
[,attribute length] P3: SC_DLG 
[,{RIL}] P4: SC_ICT.SCRHBI 
[,type] P5: SC_SIN 
ARGUMENTS : 


sccb pointer 
This parameter contains the address of the SCCB of the 
session for which you are requesting attributes. If not 
declared, the address is assumed to be in register S$B4. 
attribute buffer (SC_BUF) 


A pointer to the application's attribute buffer. This 
buffer will receive the data returned by this call. 


attribute buffer length (SC_DLG) 


The length of the receive buffer in bytes. The maximum 
allowable length of this buffer is 32,/747- bytes. 


{R|L} (SC_ICT.SCRHBI) 


Specifies whether data starts on the left (L) or right 
(R) byte of the buffer address word. 


type (SC_SIN) 


Specifies the type of attribute you are requesting. The 
attribute information available is BINDIM, which has a 
value of 1. You can specify either the attribute type or 
its value. 


DESCRIPTION: 


The SSGTAT session call provides the application with attri- 
bute information , one attribute at a time, for the session 
whose SCCB pointer is specified when issuing the call. If 
you plan to ask for the bind image, the STD entry in the AIF 
configuration must include the parameter SAVE BIND=Y. 
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Special notice should be given to the situation where an 
interrupt is received either prior to or during the execution 
of the S$SGTAT session call. 


1. When an interrupt is received before the execution of the 
SSGTAT, the application is given the data that was in the 
receive queue and informed of the interrupt. 


2. If an interrupt is received during the execution of a 
SSGTAT, the order is not completed, control is returned 
to the application, and the return code indicates that an 
interrupt has been received. 


NOTE 
This call is always made synchronously. 
RETURN CODES 


The application should check the return code after each 
execution of a session call. Bits Q through 4 have special 
meaning and represent general AIF return codes that could 
occur for any session call. These bits should be examined 
individually, then "masked out" so that the application can 
examine bits 5 through 15. 


In addition to the general return codes, the following values 
are possible: 


Value Label Description 


— 0000 RMNOER No error 
0010 RMIMPS Improper State 
0013 RMRB2S Receive buffer too small 
0015 RMIINT Invalid attribute type 
0018 RMNBDS No BIND IMAGE saved for SSGTAT 
0032 RMDTCL Send/receive rejected; data traffic 
cleared or inactive. 


Received Interrupt Type (SC_INT) 


This field contains the interrupt type if one is received 
during the execution of this session call. 
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Error Code or Sense Data Received (SC_ESD) 
This field can contain either detailed information about 
an error condition or sense data from a remote LU, if a 
negative response has been received. 

Received Buffer Data Length (SC_ADL) 


This field contains the actual length of the received 
data in bytes. 
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SSINIT - Establish A Session 


The SSINIT session call is acu to establish or restart a 


session. 


In issuing the session call, you must indicate for 


which purpose it is to be executed, by specifying RESTART or 


NO RESTART. 


FORMAT : 


If you are using $SINIT session call to establish a 
session, you must use the following format: 
[label] SSINIT [sccb pointer] Pl: S$B4 

[,node name] | P2: SC_NOD 
[, remote lu name] P3: SC_RLN 
[,std name] P4: SC_STD 
[, {SYNC |ASYNC} ] P5: SC_ICT.SCRINS 
[,NO_RESTART] P6: SC_ICT.SCRSTR 


scecb pointer 


This parameter contains a pointer to the address of the 
SCCB to be used for this session. If not declared, the 


address is assumed to be in register $B4. 


noge name (SC_NOD) 


Identifies the AIF node to which the application is 
directing this session call. This field contains eight 
alphanumeric characters. If you are loading the SCCB 
yourself and your node name has fewer than eight 


characters, this field must be left-justified and 


space-filled. 


remote lu name (SC_RLN) 


std 


The name by which the remote LU is known to this 
application. This field contains eight alphanumeric 
Characters. If you are loading the SCCB yourself and 


your remote lu name has fewer than eight characters, this 


field must be left-justified and space-filled. 
name (SC_STD) 


The configured Session Type Descriptor (STD) which lists 


the attributes of the sesSion to be established. This 


field consists of two alphanumeric characters. 
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SYNC|ASYNC (SC_ICT.SCRTNS) 


This parameter indicates whether execution of this call 
is synchronous or asynchronous. 


NO RESTART (SC_ITC.SCRSTR) 


NO RESTART is used to indicate that this is a newly 
established session; including NO RESTART causes this bit 
to be reset. 


DESCRIPTION: 


The initiate session call requests that AIF establish a 
session between an LU at the DPS 6 or DPS 6 PLUS and an LU at 
the host, and that the local LU be assigned exclusively to 
the application. In the event that AIF assigns a 
preestablished session to the application, the application 
should store the send/receive sequence numbers in case a 
RESTART of this session ever becomes necessary. These 
sequence numbers are not reset to zero after each use. To 
the host, this appears as one session. On the DPS 6 or DPS 6 
PLUS side, the session is a serially reusable resource. 

After the SSINIT is executed, the session enters send state. 


NOTE 


A SSINIT session call, executed asynchronously, 
cannot be cancelled by using the SSCASR session 
call macro. 


RETURN CODES: 


The application should check the return code after each 
execution of a session call. Bits 0 through 4 have special 
meaning and represent general AIF return codes that could 
occur for any session call. These bits should be examined 
individually, then "masked out" so that the application can 
examine bits 5 through 15. 


In addition to the general return codes, the following values 
are possible: 
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Value Label Description 


0000 ~ RMNOER NO @€rror — 

0003 RMRNEG -RSP returned by host 

0004 RMNBIF Bind negotiation failed 

0040 RMINOD Invalid node name 

0096 RMNNAC Node not yet active 

0097 RMNLAC Node active but no active LUs yet 

0098 RMNOAV LUS active, but none available for this 
session 

0099 RMISTD Invalid STD name 

009A RMILUT Invalid LU type in STD 


If the SSINIT session call is successful (RMNOER), SC_SQN and 
SC_RSQ have the send/receive sequence numbers for the 
session. ; 


session id (SC_SID) 


This two-word field is supplied by AIF after it accepts 

the session request. The first word is the session group 

name, which is assigned by AIF to each of the sessions 
running in this session group. This value is used by AIF 
to return a unique one-word session identifier for this 
session. This value is stored in the second word. This 
field is reserved for system use and must never be : 
altered by the application. | | 


maximum ru size (SC_MRU) 

This field shows the RU size that is returned. 
Example: 
The following session call requests to establish a 
synchronous session between the node named AIF501 and the 
remote LU named CICS. AIF assumes that the address of the 
SCCB is in register S$B4. 


SSINIT ,‘AIF501','CICS','AA',SYNC,NO RESTART 
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SSINIT - Restart Session 


If you are using $SINIT to restart a session, you must 
include the following parameters: 


sccb pointer] Pl: $B4 


[label] SSINIT | 
[, {SYNC | ASYNC} ] P5: SC_ICT.SCRTNS 
[RESTART] P6: SC_ICT.SCRSTR 
[,session id P7: SC SID 


*MSg resync send sequence P8: SC MRS 
rmSg resync rec sequence] P9: SC_MRR 


sccb pointer 


This parameter contains a pointer to the address of the 
SCCB to be used for this session. If not declared, the 
address is assumed to be in register $B4. 


{SYNC |ASYNC} (SC_ICT.SCRTNS) 


This parameter indicates whether execution of this call 
is synchronous or asynchronous. 


RESTART (SC_ITC.SCRSTR) 
RESTART is indicated only when the user wishes to restart 
an abnormally terminated session; including: RESTART 
causes this bit to be set. 


session id (SC_SID) 


This two-word field is supplied by AIF after each SSINIT 
session call if RESTART is specified. The first word is 
the session group name, which is assigned by AIF to each 
of the sessions running in this session group. This 
value is used by AIF after the first SSINIT session call 
to return a unique one-word session identifier for this 
session. This value is stored in the second word. This 
field is reserved for system use and must never be 
altered by the application. 


message resynchronization send sequence number (SC_MRS) 


If RESTART is specified, AIF places the sequence number 
of the last sent message that the application program has 
sent in this field. This number should be stored after 
each send, so that it can be retrieved if a RESTART is 
necessary. | 
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message resynchronization receive sequence number (SC_MRR) 


If RESTART is specified, AIF places the sequence number 
of the last received message in this field. This number 
should be stored after each receive, so that it can be 
retrieved if a RESTART is necessary. 


DESCRIPTION: 


The SSINIT session call is used to restart a session in the 
event that it has been abnormally terminated. Restart logic 
and restart rules are described in detail in Section 6. 


RETURN CODES 


The application should check the return code after each 
execution of a session call. Bits 0 through 4 have special 
meaning and represent general AIF return codes that could 

occur for any session call. These bits should be examined 
individually, then "masked out" so that the application can 
examine bits 5 through 15. 


In addition to the seneval return codes, the foi iowina values 
are possible: 


Value Label Description 


0000 RMNOER No error 

0003 RMRNEG -RSP returned by host 

0004 RMNBIF Bind negotiation failed 

0020 RMRSRF Restart not possible 

0040 RMINOD Invalid node name 

0096 RMNNAC Node not yet active 

0097 RMNLAC Node active, but no active LUs yet 

0098 RMNOAV LUs active, but none available for this 
session 

0099 RMISTD Invalid STD name 

009A =RMILUT ~ Invalid LU type in STD 


If the SSINIT session call is successful (RMNOER), SC_SQN and 


SC_RSQ have the send/receive sequence numbers for the 
session. 
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The following AIF sense data are associated with RMRSRF: 


Value Label Description 


0001 SD0001 Restart timed out or LU released by SOPR 

0002 SD0002 Session not restartable type 

0004 SD0004 Restart mismatch; synchronous point 
records do not match 


If RESTART is successful, the application should examine the 
output control word (SCCB.SC OCT) for the following 
indicators. If the bit is on, the condition described is 
true. 


SCRSTS: STSN received for mesSage resynchronization; 
application should store current value of send and 
receive sequence numbers 


SCL6RX: DPS 6 Or DPS 6 PLUS application must retransmit last 
full message 


SCHORX: Host application must retransmit last full message; 
receive required of DPS 6 or DPS 6 PLUS application. 


Examples: 

The following session call requests AIF to restart the above 
session after it has been abnormally terminated. AIF assumes 
that the address of the SCCB is in SB4 and uses the 
send/receive sequence numbers from the SCCB. 


SSINIT 4¢¢2,/RESTART 
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SSPOLL -—- Poll Session 


The SSPOLL session call checks to see if any LU associated 
with the application program's task group has been attached by 
the remote program. | 


FORMAT : 
[label] SSPOLL [Sccb pointer] Pl: SB4 
[,node name] P2: SC_NOD 
[,std name] P3: SC_STD 


ARGUMENTS : 
sccb pointer 


This parameter contains the address of the SCCB to be 
uSed for this session. The sccb pointer used for a | 
- $SPOLL must be unique and should not be currently used by 
an active session. If not declared, the address is _ 
assumed to be in register SB4. | 


node name (SC_NOD) 


Identifies the AIF node to which the application is 
directing this session call. This field contains eight 
alphanumeric characters. If you are loading the SCCB 
yourself and your node name has fewer than eight 
characters, this field must be left-justified and 
space-filled. 


std name (SC_STD) 
The configured Session Type Descriptor (STD) which lists 
the attributes of the session to be established. This 
field consists of two alphanumeric characters. 
DESCRIPTION: 


The SSPOLL session call causes AIF to test to see if any LU 
associated with the application programmer's task group has 
been attached (bound) by the remote program. The SSPOLL 
session call is Similar to the SSACPT session call, except 
that the S$SPOLL does not cause a connection between AIF and 
the application program if a bound LU is found. 


NOTE 


This call is always made synchronously. 
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RETURN CODES: 


The application should check the return code after each 
execution of a session call. Bits 0 through 4 have special 
meaning and represent general AIF return codes that could 
occur for any session call. These bits should be examined 
individually, then "masked out" so that the application can 
examine bits 5 through 15. 


In addition to the general return codes, the following values 
are possible: 


Value Label Description 


0005 RMLUAT Indicates that there is an LU being 
bound 

0040 . RMINOD Invalid node name 

0099 RMISTD Invalid STD name 

009B RMNOAT No LU attached for SSPOLL 
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SSRECV - Receive Message 


The SSRECV session call causes AIF to deliver to the 
application's buffer a message or message segment from the 
session partner. | 


FORMAT: 
[label] SSRECV [sccb pointer] Pl: SB4 

[,receive data buffer] P2: SC_BUF 
[,rec'v buffer length] P3: SC_DLG 
[,{RIL}] P4: SC_ICT.SCRHBI 
[, {SYNC | ASYNC}] P5: SC_ICT.SCRTINS 
[,{MSG|M_SEG}] P6: SC_ICT.SCRMSG 

ARGUMENTS: 


sccb pointer 
This parameter contains the address of the SCCB to be 
used for this session. If not declared, the address is 
assumed to be in register SB4. 
receive data buffer (SC_BUF) 
A pointer to the application's receive buffer. 


receive data buffer length (SC_DLG) 


The length of the receive buffer in bytes. The maximum 
allowable length of this buffer is 32,767 bytes. 


{RIL} (SC_ICT.SCRHBI) 


Specifies whether data starts on the left (L) or right 
(R) byte of the buffer address word. 


{SYNC |ASYNC} (SC_ICT.SCRTNS) 


This parameter indicates whether the execution of this 
call is synchronous or asynchronous. 


{MSG|M_SEG} (SC_ICT.SCRMSG) 


Specifying MSG indicates that a complete message (whole 
chain of request units) is to be delivered to the 
application's buffer. If M_SEG is specified, single 
request units are delivered to the application's buffer. 
When the last message segment is delivered, AIF sets the 
end of message bit in the output control word (SCREOM). 
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DESCRIPTION: 


The SSRECV session call causes AIF to deliver a message or 
message segment (request unit) to the application's buffer 
from the session partner. 


If the user specifies MSG, then AIF assembles the chain 
before delivery. If the user's buffer is not large enough, 
the message is not delivered; the actual length of the 
message or message segment is returned to the application. 
The application can either re-execute the receive with an 
adequate buffer, or re-execute the receive specifying M SEG. 


NOTE 


If a RESTART of this session is a possibility, 
then the receive sequence number should be stored 
by the application executing this SSRECV session 
call. 


RETURN CODES: 


The application should check the return code after each 
execution of a session call. Bits 0 through 4 have special 
meaning and represent general AIF return codes that could 
occur for any session call. These bits should be examined 
individually, then "masked out" so that the application can 
examine bits 5 through 15. 


In addition to the general return codes, the following values 
are possibies: | 


Value Label Description 
0000 RMNOER No error. 
0010 RMIMPS Improper State 
0013 RMRB2S Receive buffer too small 
0032 - #$RMDTCL Send/receive rejected; data traffic 
cleared or inactive 
Received Interrupt Type (SC_INT) 


This field contains the interrupt type if one is received 
during the execution of this session call. 


Error Code or Sense Data Received (SC_ESD) 
This field can contain either detailed information about 
an error condition or sense data from a remote LU, if a 
negative response has been received. 


2-2/7 GR11-02 


SSRECV 


Receive Data Buffer Length (SC_ADL) 


This field contains the actual length of the received | 
data in bytes. 


Output control word (SC_OCT) 
This field contains certain indicators that are of 


interest after a successful SSRECV session call. When 
one or more of these bits is set, the condition described 


is true. 
Value Label Description 
8000 SCRWRP Reply requested (CD) 
4000 SCRROD Definite response required (RQD) 
2000 SCRLST LAST message received (EB) 


1000  ##$SCRFMH Function management header (FMH) 
~ 0200 SCREOM End of message (EC) 
~~ 0400 SCRBOM Beginning of message (BC) 


Special notice should be given to the situation where an 
interrupt was received prior to or during the execution of a 
SSRECV session call. Two situations are possible: 


1. An aneoreise was received before the execution of the 
SSRECV session call. In this case, the application is 
given the data if it was in the receive queue and the 
application is also informed of the interrupt. The 
return code is either RCRINT+RCSCNL (X'3000') or 
RCRINT+RCSCMP (X" 2800'), depending on whether or not 
there was data in the receive queue. 


2. An interrupt is received during the execution of a SSRECV 
session call. In this case, the order is not completed 
and return is made to the application with a return code 

~RCRINT+RCSCNL (X'3000'). 


Example: 

The following example causes AIF to deliver an assembled 
asynchronous message to the application's buffer, which is 
256 bytes long, left-byte aligned. The values for parameters 
l and 2 remain as they were prior to issuing this session 
call. 


SSRECV ,,=256,L,ASYNC,MSG 
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SSRI - Read Interrupt 


The $SRI session call reads interrupt information from the 
host or control information from the AIF LU when there is no 
other AIF session call outstanding. 


FORMAT : 

[label] SSRI [sccb pointer] Pl: SB4 
ARGUMENT : 
sccb pointer 


This parameter contains the address of the SCCB to be 
used for this session. If not declared, it is assumed to 
be in register SB4. | 


DESCRIPTION: 


The SSRI session call enables the application to read 
interrupt information from the host or control information 
from AIF when there is no other AIF session call outstanding. 


If either of the following situations occurs, the condition 
is reported to the application, the SCCB is updated the same 
way as for the SSTEST or SSWANY session call and a return is 
made to the application. 


As with any aSynchronous call, the application must execute a 
SSWANY or SSTEST session call to determine when the SSRI 
session call is complete and regain control. 


l. When an interrupt is received, the Received Interrupt 
Type and the Error Code Or Sense Data Received fields in 
the SCCB contains the appropriate information. 

2. If data has been received for which there is no 
outstanding order, the user must issue a SSRECV Session 
call to gain access to this data. The length of the 
received data is in SC_ADL. 

NOTE 


The SSRI session call is always made asynchronously. 
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RETURN CODES 


The application should check the return code after each 
execution of a session call. Bits 0 through 4 have special 
meaning and represent general AIF return codes that could 
occur for any session call. These bits should be examined 
individually, then "masked out" so that the application can 
examine bits 5 through 15. 


In addition to the general return codes, the following values 
are possible: 


Value Label Description © 

0002 RMDRNR Data received but no read 

0010 RMIMPS Improper state 

0032 RMDTCL Send/receive reject: data traffic 
| cleared/inactive 
Received Interrupt Type 


This field contains the interrupt type if one is received 
during the execution of this session call. | 


Error Code or Sense Data Received 
This field contains either detailed information about an 
error condition or sense data if received from a remote 
LU. 
Example: 
This session call allows the application to read interrupt 
information from the host when there is no other session call 
outstanding. This example assumes that register $B4 has 
previously been loaded with the address of the SCCB. 


RDINT SSRI 
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SSSEND - Send Message 


The SSSEND session call sends a message (chain) or message 
segment (RU) to a session partner. 


FORMAT: 
[label] SSSEND [sccb pointer] Pl: SB4 
[,send data buffer] P2: SC_BUF 
[,send buffer length] P3: SC DLG 
[,{RIL}] P4: SC ICT.SCRHBI 
[, {SYNC |ASYNC}] P5: SC ICT.SCRINS 
[, {REPLY | RLCLR| P6: SC_ICT.SCSWRP 
LAST} ] : SC ICT.SCSLST 

[, {MNTCMP | MCMP } ] P7: SC_ICT.SCSMNC 
[, {FMH | NOFMH P8: SC ICT.SCSFMH 
[,{RQD|RQE}] P9: SC_ICT.SCSROQD 

ARGUMENTS: 


sccb pointer 
This parameter contains the address of the SCCB to be 
used for this session. If not declared, the address is 
assumed to be in register $B4. 

send data buffer (SC_BUF) 
A pointer to the application's data buffer. 


send data buffer length SC_DLG) 


The length of the data in bytes. The maximum buffer size 
is 32,767 bytes. 


{RIL} (SC_ICT.SCRHBI) 
This argument specifies whether data starts on the left 
Or right byte of the buffer address word. The user 
specifies RIL. 

{SYNC |ASYNC} (SC_ICT.SCRTNS) 


This parameter indicates whether execution of the call is 
Synchronous or asynchronous. 
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{REPLY |RLCLR} (SC_ICT.SCSWRP) 
LAST (SC_ICT.SCSLST) 


REPLY indicates to the application to send with reply 
requested (set change direction indicator in request 
header). This parameter is meaningful only when you are 
sending the last message segment or a chain. 


The LAST parameter causes AIF to flag the last message 
(set end bracket indicator in request header). This 
parameter is meaningful only at the beginning of a 
message (chain). This option is only valid with IMS 
applications. 


RLCLR clears both the REPLY and the LAST bits in the 
input control word. 


MNTCMP |MCMP} (SC_ICT.SCSMNC) 


pala 


-MNTCMP indicates that the message chain is not complete. 
MCMP resets this indicator in the input control word. 


{FMH|NOFMH} (SC_ICT.SCSFMH) 


This parameter bit indicates that data is to be sent with 
Function Management Header in Request/Response Unit. | 


{ROD|RQE} (SC_ICT.SCSRQD) 


RQD sends a messSaage and requests a definite response. 
RQE sends a message and requests an exception response. 


DESCRIPTION: 


The SSSEND session call instructs the sending of a message 
(chain) or message segment (RU) to the session partner. | 
Special notice should be given to the situation where the 
application is executing a SSSEND session call but an 
interrupt is received before or during the execution of the 
session call. 


When you are sending an entire message (chain), use the MCMP 
parameter. When sending message segments, use MCTCMP, except 
for the last segment, with which you use MCMP. 


If an interrupt has already been received when the SSSEND 
session call is executed, the application is informed of the 
interrupt. If an interrupt is received during the execution 
of the SSSEND session call, the SSSEND session call 
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completes, and when the application executes the SSWANY or SSTEST 
session call, return is made to the application. The return code 
indicates the interrupt received and the result of the SSSEND 
session call. 


NOTE 


If RESTART of this session is a possibility, then 
the send sequence number and the entire message 
must be saved by the application executing this 
SSSEND session call. 


RETURN CODES 


The application should check the return code after each 
execution of a session call. Bits 0 through 4 have special 
meaning and represent general AIF return codes that could 
occur for any session call. These bits should be examined 
individually, then "masked out" so that the application can 
examine bits 5 through 15. In addition to the general return 
codes, the following values are possible: | 


Value Label Description 


0000 RMNOER No error 

0003 RMRNEG -RSP returned by host; application 
should examine sense data 

0010 RMIMPS Improper State 

0012 RMIRHI Invalid input control indicators; 
application should examine sense data 

0032 RMDTCL Send/receive rejected; data traffic 

Cleared or inactive 


The following AIF sense data are associated with RMIRHI: 


Value Label Description 


0828 SD0 828 Reply not possible, session partner 
quiesced 

4004 SD4004 LAST not allowed for this session 

40 40 SD40 40 REPLY or LAST required 


Received Interrupt Type 
This field contains the interrupt type if one is received 


for the application during the execution of this session | 
call. 
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Error Code or Sense Data Received 


This field can contain detailed information about an 
error condition or sense data from a remote LU. 


Example: 


The following session call sends a whole message of 256 bytes 
with left byte alignment with FM header. This SSSEND session 
call is the first and only SSSEND session call for this 
message. This SSSEND session call is executed asynchronously 
and requests a definite response. , 


SSSEND ,,256,L,ASYNC, RLCLR,MCMP , FMH, ROD 
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SSSI - Send Interrupt 


The $SSI session call is used to send Data Flow Control 
commands to the session partner or to pass control information to 
the System Service Control Point or to AIF. 


FORMAT: 
[label] $SSI  [sccb pointer] Pl: SB4 

[,send data buffer] P2: SC_BUF 

[,send buffer length] P3: SC_DLG 

[,{RIL}] P4: SC_ICT.SCRHBI 

[, type] P5: SC_SIN 

[, {REPLY P6: SC_ICT.SCSWRP 
LAST} ] SC_ICT.SCSLST 

[,sense data] P7: SC_SSD 


ARGUMENTS : 

sccb pointer 
This parameter contains the address of the SCCB to be 
used for this session. If not declared, the address is 
assumed to be in register $B4. 

send data buffer (SC_BUF) 


A pointer to the application's send data buffer. This 
parameter is required only if you are sending CNM data. 


send data buffer length (SC_DLG) 
The length in bytes of the send data in the buffer. The 
maximum allowable size is the MAXIMUM RU SIZE which has 
been configured minus three. This parameter is required 
only if you are sending CNM data. 
{RIL} (SC_ICT.SCRHBT) 
This argument specifies whether data starts on the left 
(L) or right (R) byte of the buffer address word. This 
parameter is required only if you are sending CNM data. 
type (SC_SIN) 
This field contains the interrupt type for this send. 


Refer to the $SCCB template (Appendix E) for possible 
values for this field. 
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REPLY (SC_ICT.SCSWRP) 
LAST (SC_ICT.SCSLST) 


If the application specifies LAST, the end bracket 
indicator is set. 


If the application specifies REPLY, the change direction 
indicator is set. 


sense data (SC_SSD) 


This field contains the sense data if the specific 
interrupt type calls for it. If the application places 
the sense data in registers S$R6 and $R7, then this 
parameter is specified as register $R7 or =SR7. If the 
literal sense data value is included for this parameter, 
then it must be in a form acceptable as the operand of an 
LDI instruction, such as, =Z'08240000'. 


DESCRIPTION: 


The $SSI session call is used to send the following three. 
types of information: | 


l. Send data flow control commands to the session partner 


2. Pass control information to AIF (e.g., enable/disable 
restart). 


33 Pass Statistical information to SSCP. 


The format of the buffers that you create to send CNM alerts 
and maintenance statistics are detailed in Section 6. 


NOTE 
The SSSI session call is always made synchronously. 
RETURN CODES: 
The application should check the return code after each 
execution of a session call. Bits 0 through 4 have special 
meaning and represent general AIF return codes that could 
occur for any sesSion call. These bits should be examined 


individually, then "masked out" so that the application can 
examine bits 5 through 15. ) 
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In addition to the general return codes, the following values 
are possible: 


Value Label Description 


0000 RMNOER No error 

0003 RMRNEG -RSP returned by host; application 
Should examine sense data 

0010 RMIMPS Improper State 

0012 RMIRHI Invalid input control indicators; 
application should examine sense data. 

0015 RMIINT Invalid Interrupt Type 

0016 RMICOD Invalid status word or user code 

0032 RMDTCL Send/receive rejected; data traffic 

; cleared or inactive 


The following sense data are associated with RMIRHI: 
Value Label Description 


0828 SDO 828 Reply not possible, session partner 


guiesced 
4004 SD4004 LAST not allowed for this session 
4040 SD40 40 REPLY or LAST required 


Received Interrupt Type (SC_INT) 


This field contains an interrupt type if one is received 
during the execution of this session call. 


Error Code or Sense Data Received (SC_ESD) 
This field contains either detailed information about an 
error condition or sense data if received from a remote 
LU. 
Example: 
The following session call sends a data flow control command, 
LUSTAT, with change direction indicator and the Sense data 
0824 to the session partner. (LUSTAT is a label whose value 
is found in the SCCB.) 


SNDINT SSSI ,,,,=LUSTAT,REPLY,=Z'08240000' 
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SSSRSP_- Send Response 


| The SSSRSP session call requests that AIF send a response to 
a previous message which requires a response. 


FORMAT: 
[label] $SSRSP [sccb pointer] Pl: S$B4 
| [, {SYNC | ASYNC} ] P2: SC_ICT.SCRINS 
[, {PRSP | P3: SC_ICT.SCSRSP 
NRSP : SC_ICT.SCSNEG 
WAIT FOR_RTR|NO_RTR}] | 
[,sense] P4: SC_SSD- 
ARGUMENTS : 


sccb pointer 


This parameter contains the address of the SCCB to be 
used for this session. If not declared, the address is 
assumed to be in register $B4. 


{SYNC |ASYNC} (SC_ICT.SCRTNS) 


This parameter indicates whether execution of this call 
is PyneneOnoie Or asynchronous. 


NRSP (SC_ICT.SCSNEG) 
PRSP (SC_ICT.SCSRSP) 


This argument indicates whether to send a positive 
response or a negative response. 


If a negative response is indicated (NRSP), the LU sends 
a negative response accompanied by whatever sense data is 
found in the SCCB. If the user wishes no sense data to 
be sent, he must provide a sense data of Ds 


{WAIT FOR_RTR|NO_RTR} 


If the data flow control command BID is rejected by the 
application program, this parameter indicates whether the 
session partner should wait for the Ready to Receive 
(RTR) or if none is to be sent... 


If WAIT FOR_RTR is indicated, AIF sends a negative 


response with sense data Z'0814'; if NO_RTR is indicated, 
AIF sends a negative response with sense data Z'0813'. 
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sense (SC_SSD) 


This four-byte field provides sense data if NRSP is 
specified. If no sense data is to be sent, this field 
should be set to nulls by the application. 


DESCRIPTION: 


The SSSRSP session call sends either a negative or a positive 
response to a previous message on behalf of the application. 
If the response is negative, the application also has the 
option of sending sense data. 


RETURN CODES: 


The application should check the return code after each 
execution of a session call. Bits 0 through 4 have special 
meaning and represent general AIF return codes that could 
occur for any session call. These bits should be examined 
individually, then "masked out" so that the application can 
examine bits 5 through 15. 


In addition to the general return codes, the following values 
are possible: | 


Value Label Description 


0000 RMNOER No error 

0010 RMIMPS Improper State 

0012 RMI RHI Invalid input control indicators; 
application should examine sense data 

0032 RMDTCL Send/receive rejected; data traffic 
cleared | 


The following AIF sense data are associated with RMIRHI: 
Value Label Description 
4041 SD4041 Response type improperly indicated 
Example: 


The following session call sends a negative response on 
behalf of the application and sets the sense data to nulls. 


SSSRSP ,,NRSP,=0000 
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$STERM - Terminate Session 


The SSTERM session call terminates the AIF session. 


FORMAT: | 
| [label] SSTERM [sccb pointer] Pl: $B4 

[ , {NORM | ABNORM} ] P2: SC_ICT.SCATRM 
ARGUMENTS : 


sccb pointer 
' This parameter contains the address of the SCCB to be 
used for this session. If not declared, the address is 
assumed to be in register SB4. 
{NORM|ABNORM} (SC_ICT.SCATRM) 


NORM or ABNORM indicates to the host the reasons for 
which this session is being terminated 


DESCRIPTION 

The $STERM session call terminates the AIF session. -_ 
Termination can be either normal or abnormal. Whether it is 
normal or abnormal is indicated by a parameter within the 
SSTERM session call. | 


e If the SSTERM indicates normal termination, an orderly 
termination message is sent to the session partner's LU. 


e If the SSTERM indicates abnormal termination, the 
following events occur: 


-~ The AIF LU terminates the session. 


~ AIF sends an abnormal termination message to inform the 
host LU. | 


After the session is terminated, the LU task is again 
available for other users. 


Abnormal termination can be issued at any time; the last 
session call is cancelled if it is not completed. 


NOTE 


The $STERM session call is always made synchronously. 


2-40 GR11-02 


SSTERM 


RETURN CODES: 


The application should check the return code after each 
execution of a session call. Bits 0 through 4 have special 
meaning and represent general AIF return codes that could 
occur for any session call. These bits should be examined 
individually, then "masked out" so that the application can 
examine bits 5 through 15. 


In addition to the general return codes, the following values 
are possible: 


Value Label Description 

0000 RMNOER No error 

0010 RMIMPS Improper State (only applies to normal 

termination) 

The following sense data are associated with RMIMPS: 

Value Label Description 

200D SD200D Response required 

2040 SD2040 Normal termination rejected; data on 

_ receive queue 

2041 SD2041 Transaction not completed yet 

Received Interrupt Type 


This field contains the interrupt type, if one is 
received during the execution of a normal termination. 


Error Code or Sense Data Received 
This field contains either detailed information about an 
error condition or sense data if received from a remote 
LU. | 

Example: 


The following session call causes the AIF session to 
terminate normally. 


DONE SSTERM ry NORM 
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SSTEST - Test for Events 


The SSTEST session call tests conditions for the session 
whose SCCB is pointed to by register S$B4. 


FORMAT: 

[label] SSTEST [sccb pointer] Pl: SB4 
ARGUMENT: 
sccb pointer 


This parameter contains the address of the SCCB to be 
used for this session. If not declared, this address is 
assumed to be in register S$B4. 


DESCRIPTION: 


This session call tests conditions for the session whose SCCB 
is pointed to by register $B4. Executing this session call 
causes AIF to immediately report to the application one of 
the following conditions in register $Rl and SCCB:SC_RCD: 


1. No event 

2. Interrupt received 

3. Asynchronous order completed or cancelled 

4. Permission to send after a send was rejected due to date 
traffic inactive or pacing 

5. Data has been received for which there is no outstanding 
Order. 


Conditions 2 and 3 can coexist. 


If an interrupt was received, the Received Interrupt Type and 
the Error Code Or Sense Data Received fields in the SCCB 
contain information pertaining to the type of interrupt. 


If an asynchronous order were completed or cancelled, then 
AIF delivers the return code of the completed order 
immediately and the application must examine all pertinent 
fields in the SCCB. 


If data has been received for which there is no outstanding 
order, the user must issue a SSRECV Session call to gain 
access to this data. Nothing is delivered to the user as a 
result of the S$STEST session call, but the length of the 
received data is found in the SC_ADL of the SCCB. 
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NOTE 


The SSTEST session call can be executed while an 
asynchronous call is outstanding. This session call 
is always made synchronously. If there were an 
asynchronous order outstanding, the condition is 
tested, reported, and the order remains outstand- 
ing. Once the test determines that the order has 
been completed, the call is no longer outstanding. 


RETURN CODES: 


The application should check the return code after each 
execution of a session call. Bits 0 through 4 have special 
meaning and represent general AIF return codes that could 
occur for any session call. These bits should be examined 
individually, then "masked out" so that the application can 
examine bits 5 through 15. 


In addition to the general return codes, the following values 
are possible: 


Value Label Description 


0000 RMNOEV No Event 

0001 RMPTSN Permission to send. 

0002 RMDRNR Data received but no read 
Received Interrupt Type (SC_INT) 


This field contains the interrupt type, if there is one 
during the execution of this session call. 


Error Code or Sense Data Received (SC_ESD) 
This field contains either detailed information about an 
error condition or sense data if received from a remote 
LU. 

Receive Data Buffer Length (SC_ADL) 


This field contains the actual length of the received 
data in bytes. 


Examples: . 


This session call tests the status of the session indicated 
by the SCCB to which register $B4 is pointing. 


CHECK SSTEST 
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SSWANY - Wait on Events 


The SSWANY session call causes AIF to issue a system "wait 
any" on behalf of the application. The application remains 
dormant until one of the requests is complete. 


FORMAT: 
[label] SSWANY 
ARGUMENT : 
This session call has no arguments. 
DESCRIPTION: 


The SSWANY session call causes execution of the application 

program to be suspended until any asynchronous request 

terminates. Asynchronous requests other than AIF requests 

also cause control to return to the $SWANY session call 
executor providing that the P-bit in the request block was 

set by the executor prior to the execution of the SSWANY 
macrocall. | | 


Unless you have an outstanding call, you should not issue a 
SSWANY session call. If you do issue a SSWANY session call 
with no outstanding asynchronous call, AIF returns an RCNOUT 
return code to indicate that there are no orders outstanding. 


If an application had more than one session established, with 
outstanding asynchronous orders on multiple sessions, 
executing a SSWANY session call returns control to the 
application with register SB4 containing the SCCB address of 
the session whose request has completed. 


RETURN CODES: 


The application should check the return code after each 
execution of a session call. Bits 0 through 4 have special 
meaning and represent general AIF return codes that could 
occur for any session call. These bits should be examined 
individually, then "masked out" so that the application can 
examine bits 5 through 15. 


In addition to the general return codes, the SSWANY session 


call can return return codes according to the following 
conventions: 
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1. If, after a SSWANY session call is executed, register 
SB4 contains the address of the SCCB, then register 
SR1 contains the AIF session call return code. 


2. If, after a SSWANY session call is executed, register 
SB4 contains the address of the terminated request 
block, then register S$R1 contains the completion 
Status for that request block. 


Upon return, registers SR1 and $B4 contain the following 
information: 


AIF Call Complete Other Asynchronous Call Complete 


$B4 ADDRESS OF SCCB ADDRESS OF TERMINATED REQUEST 
BLOCK 
SRl AIF CALL POSTED COMPLETION STATUS OF 
RETURN CODE COMPLETED REQUEST BLOCK 
NOTE 


This session call is always made synchronously. 
When this call is executed, AIF issues a "wait 
any" on behalf of the application. The 
application program remains dormant until one of 
the requests is complete. If an application does 
any asynchronous AIF processing, the application 
should never execute a SWAITA. This command 
causes unspecified results. 


Examples: 


This session call causes the application program to remain 
dormant until an asynchronous request terminates. 


WAIT SSWANY 
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SSACEB ~ ASCII-~To-EBCDIC Conversion Routine 
Converts data from ASCII to EBCDIC. 
FORMAT: 
label SSACEB 
ARGUMENT: 
There deache arguments associated with this macro. 
DESCRIPTION: 
These session calls convert ape from ASCII to EBCDIC. Since 
IBM handles data in EBCDIC and DPS 6 or DPS 6 PLUS handles it 
in ASCII, you may sometimes wish to convert data from one to 


the other, either before sending or before receiving. 


The Application Interface Facility software provides the 
following macros to perform these conversions. 


SSACEB ASCII-To-EBCDIC Conversion 
When this macro is activated, you must initialize registers 


SB2, SB4, $R2, S$R4, and $R6 to contain the values listed in Table 
2-2. If you wish to convert in place, $B2=SB4. 


Table 2-2. Register Contents at Conversion 


Pointer to buffer to be converted 
| Pointer to buffer to contain converted data 


Index for buffer to be converted 
Function code (SSACEB=1; SSEBAC=2) 

Index for buffer to contain converted data 
Length of data in bytes 


NOTE 


The maximum length of data that can be converted 
by a Single call is 32,767 bytes. 
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SSEBAC - EBCDIC-To-ASCII Conversion Routine 
Converts data from EBCDIC to ASCII. 
FORMAT: 
label SSEBAC 
| ARGUMENT: 
There are no arguments associated with this macro. 
DESCRIPTION: 
These session calls convert data from EBCDIC to ASCII. Since 
IBM handles data in EBCDIC and DPS 6 or DPS 6 PLUS handles it 
in ASCII, you may sometimes wish to convert data from one to 


the other, either before sending or before receiving. 


The Application Interface Facility software provides the 
following macros to perform these conversions. 


SSEBAC EBCDIC-To-ASCII Conversion 
When this macro is activated, you must initialize registers 


SB2, SB4, S$R2, $R4, and $R6 to contain the values listed in Table 
2-2. If you wish to convert in place, $B2=SB4. 


Table 2-3. Register Contents at Conversion 


| Register | contents 


Pointer to buffer to be converted 
Pointer to buffer to contain converted data | 


Index for buffer to be converted 
Function code (SSACEB=1; SSEBAC=2) 

Index for buffer to contain converted data 
Length of data in bytes 


NOTE 


The maximum length of data that can be converted 
by a Single call is 32,767 bytes. 
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Section 3 
PROGRAMMING 

LU TYPE 0 SESSIONS 
IN COBOL 


This section describes the session calls that the COBOL 
programmer uses to converse over a Session Type 0 with host 
transaction programs. Topics include: 


@ COBOL session calls 

@ Session call format 

@ Programming Considerations 
- Synchronous vs. Asynchronous Processing 
- WORKING-STORAGE SECTION 
~ Checking the Return Code 

@e Session Calls. 


COBOL SESSION CALLS 


The session calls used by the Application Interface Facility 
(AIF) in a COBOL application program call corresponding Assembly 
language subroutines using the "CALL...USING..." verb. These 
calls are listed in Table 3-2. 


The parameters that the session calls use are positional. 
They are defined in the WORKING-STORAGE SECTION of the COBOL 
program. In this manual, these parameters are defined in the 
discussion of the WORKING-STORAGE SECTION and are listed without 
redefinition in the format description of each session call. 
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At the completion of each session call, when control is 
returned to the application, a return code is placed in the 
RETURNS field. This return code indicates whether a call has 
been completed error free. The application should check the 
return code after each session call to verify that the call was 
completed error-free. | 


A sample COBOL program is provided in Appendix C to 
demonstrate the use of the AIF session calls in a COBOL program. 


SESSION CALL FORMAT 


The session calls used by AIF in a COBOL program reference 
Assembly language subroutines which include system-provided 
macrocalls. The COBOL session calls have a list of arguments 
that must be specified each time a session call is executed. 
These arguments, which you have defined in the WORKING-STORAGE 
SECTION, correspond to parameters in the SCCB that are used by 
the Assembly language subroutine. The AIF COBOL session calls 
follow the conventions for COBOL (described in detail in the ONE 


PLUS COBOL 74 Language Reference Manual (HE34). 


When an AIF session call is activated, it defines one or more 
pools of logical units. Each pool of logical units is reserved 
for a specific host CICS or IMS system. AIF can either start a 
session to the host system at initiation or it can wait for an 
application to request a session. The time of session initiation 
is a configuration option. 


An application requests to initiate a session with a reserved 
LU by executing the CSINIT session call. AIF checks the 
availability of that LU and asSigns it if it is available. If 
the specified LU is unavailable, AIF checks first for an 
available reserved LU, second for an available preestablished LU, 
and then for any available LU to assign to the session. AIF 
either returns the address of the LU with which the session is 
Started, or rejects the request if there is no LU available. 


An application gains access to a host-initiated session by 
executing a CSACPT session call. Executing the accept session _ 
call causes the application to be connected to the host-initiated 
session and causes the LU to send a positive response to the 
host, accepting the session. 


PROGRAMMING CONSIDERATIONS 


The special considerations that the COBOL programmer must. 
bear in mind fall into the following categories: 


Synchronous vs. Asynchronous Processing 
WORKING-STORAGE SECTION | 
 Host-initiated sessions 

Linking the program 

Checking the return code. 
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Synchronous vs. Asynchronous Processing 


AIF session calls can be processed either synchronously or 
asynchronously. 


SYNCHRONOUS PROCESSING 


Synchronous processing implies that when the application 
passes an instruction to AIF for processing, it waits for the 
application to complete that instruction before continuing. 


In Figure 3-l, a CSINIT Session call has been issued 
synchronously. The application completes its segment of 
procesSing and passes the reguest to AIF. AIF executes the 
CSINIT session call completely and passes the return code to the 
application. The application does not process other instructions 
while AIF is executing the CSINIT session call. 


SYNCHRONOUS PROCESSING 


ISSUES 
SESSION 


APPLICATION CAEL 


CONTINUES PROCESSING 
PROGRAM aca cael 


ACCEPTS THE 
REQUEST (DONE) 
AGE L é 
i i 
§ 


EXECUTES SESSION CALL 
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Figure 3-1. Synchronous Processing 


ASYNCHRONOUS PROCESSING 


Asynchronous procesSing implies that when the application 
passes an instruction to AIF for processing, the application 
continues to process other instructions while it waits for AIF to 
complete that instruction. 


In Figure 3-2, a CSINIT session call has been issued 
asynchronously. The application completes its segment of 
processing and passes the request to AIF. While AIF executes the 
CSINIT session call, the application is processing other 
instructions. In order for the application to find out that AIF 
has finished executing the CSINIT session call, the application 
must execute a CSWANY or a CSTEST session call. 
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ASYNCHRONOUS PROCESSING 


7 
ISSUES | 
SESSION OTHER PROCESSING 

CALL | CONTINUES PROCESSING 


ACCEPTS 
THE REQUEST DONE 


[ 


AIF 
| 


EXECUTES SESSION CALL 
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Figure 3-2. Asynchronous Processing 


Each time you issue an asynchronous order, you must check the 
receive queue before you can receive information. You can do 
this by either the CSTEST or the CSWANY session call. These two 
session calls differ as follows: 


1. The CSTEST session call checks to see if there is 
information in the queue to be received and immediately 
reports back to the application. This call can be 
executed any time you wish to check for an outstanding 
order, and as often as you wish to check, because the 
application regains control immediately after the test is 
completed. 


2. The CSWANY session call checks for information on the 
queue and waits until there is information waiting before 
it returns control to the application. 


WORK ING-~STORAGE SECTION 


The WORKING-STORAGE SECTION defines the area to be used as 
the SNA work area. The parameters specified in these fields are 
passed to the SCCB when the session calls are executed. 


The following parameters must be defined in the WORKING- 
STORAGE SECTION. These parameters are used to create the session 
call control block which is used by the Assembly language 
subroutines you are calling. 


Figure 3-3 shows a sample WORKING-STORAGE SECTION in which 
the SNA work area has been defined. The data-names that are used 
here are examples; you can name them according to your own naming 
conventions. 
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DATA DIVISION. 
WORKING-STORAGE SECTION. 


77 


77 
77 
Ol 


77 


| 77 


SNA-WORK~AREA 
NODE-NAME 
REMOTE-LU~NAME 
STD-NAME 
SYNC-CALL 
ASYNC-CALL 
RESTART 
NO-RESTART 
SESSION-ID 
MSG~RESYNC-SEND-SQN 
MSG-~RESYNC-RCV-SQN 
SEND-BUFFER 
SEND~BUFFER-SIZE 
DATA~BUFFER-~ALIGNMENT 
REPLY~REQUEST 
MSG~COMPLETE 
FMH 
RQD 
RECEIVE-BUFFER 
RECEIVE-BUFFER-SIZE 
MSG 
RECEIVED~-DATA-~LENGTH 
INTERRUPT-DATA-LENGTH 
WORK ~AREA~ ID 
SEND-RESPONSE-TYPE 
SENSE-DATA 
RETURNS. 
02 RETURN-A. 
03 SESSION~ABORT 
03 STOP-RCVD 
03 INTRPT~-RCVD 
03 SERV-REQ-CANC 
03 SERV~REQ~COMP 
03 COBOL~ERROR 
02 RETURN-B 
INTERRUPT-TYPE 


RCVD-SENSE 
TIMEOUT. 
02 DATEL. 
03 YY 
03 MM 
03 DD 
O02 TIMEL. 
03 HH 
03 MN 
03 SSSS 


TERMINATE-TYPE 
GET-ATTR-TYPE 


PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 


PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
Pic 
PIC 
PIC 


PIC 
PIC 
PIC 


PIC 
PIC 
PIC 
PIC 


PIC 


X(200). 

X¥(8) VALUE "AIF501". 
X(8) VALUE "AO6CICS". 
XX VALUE "BB". 

X VALUE "S". 

X VALUE "A". 

X VALUE "R". 

X VALUE "N". 

X(4). 

9(5) VALUE 0. 

9(5) VALUE 0. 

X (80). 

9(5) VALUE 80. 

X VALUE “L". 

X VALUE "R". 

X VALUE "Y". 

X VALUE 
X VALUE "N". 


X(80). 


9(5) VALUE 80. 
X VALUE "Y". 
9(5) VALUE 0. 
9(5) VALUE 0. 
X (4). 

X VALUE "-". 

X (8). 


VALUE "N". 
VALUE "N"“. 


99 VALUE 0. 
99 VALUE 0. 
99 VALUE 0. 


99 VALUE 0. 
99 VALUE 0. 
9(4) VALUE 0. 
X VALUE "N". 


99 VALUE "01". | | 
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O01 


77 
01 
77 


| O1 
|} Ol 


OUTPUT-CONTROL-WORD. 


02 


02. 


02 


REPLY-REQUESTED-CD 
DEF INITE-RESP-REQ 
LAST-MSG-RCVD-EB 
FMH-IN-RCVD-DATA 
BEGIN-MSG-RCVD-BC 
END-MSG-RCVD-EC 
SET-SEND-RECV-SEQ 
APPL-RESEND-REQUIRED 
HOST-RESEND-REQUIRED 


CONVERT-FROM-FIELD | 
CONVERT-FROM-LEFT-POSIT 
CONVERT-TO-FIELD 
CONVERT-TO-LEFT-POSIT 
CONVERSION-LENGTH 


PIC X VALUE "N" 
PIC X VALUE "N". 
PIC X VALUE "N" 
PIC X VALUE "N" 
PIC X VALUE "N". 
PIC X VALUE "N". 
PIC X VALUE "N" 
PIC X VALUE "N" 
PIC X VALUE “N" 
PIC X(20). 

COMP-1 VALUE l. 
PIC X(20). 


COMP-1 VALUE 6. 
COMP-1 VALUE 10. 


Figure 3-3 (cont.). WORKING-STORAGE SECTION for AIF 


These fields are defined as follows: 


SNA-WORK~AREA 


This input parameter is the name of a contiguous memory 
area that is at least 200 bytes long. This corresponds 


to the "sccb pointer" 
session calls. 


argument of the Assembly language 


If your program will be running multiple sessions, you 
must define a unique SNA-WORK-AREA for each session. 


Example: 


77> SNA-WORK-AREA 


NODE-NAME 


This input parameter contains the name of the AIF node on 


PIC X(200). 


the DPS 6 or DPS 6 PLUS system with which the session is 
being established. This field contains up to eight 
alphanumeric characters. 


Example: 


77 NODE-NAME 


REMOTE-LU-NAME | 


PIC X(8) VALUE "SNANODE1". 


This input parameter contains the name by which the 
remote LU is known to this application. This field 
contains up to eight alphanumeric characters. The 

REMOTE-LU-NAME equates to the APPL VTAM macro on the 


host. 
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Example: 

77  REMOTE-LU-NAME PIC X(8) VALUE "AO6CICS ". 
STD~-NAME 

This input parameter contains the two alphanumeric 

Character field which is the session type descriptor 

name. The STD is defined in the AIF configuration file. 

Example: 

77 STD-NAME PIC X(2) VALUE "BB". 


SYNC-CALL 
ASYNC-CALL 


These input parameters indicate whether execution of the 
call is to be synchronous or asynchronous. Each field 
contains one character, either S or A. Both parameters 
must be included. 


Example: 
77 SYNC-CALL PIC X VALUE "S". 
77 ASYNC-CALL PIC X VALUE "A". 
RESTART 
NO-RESTART 


These input parameters indicate whether or not the 
application wishes to restart an abnormally terminated 
session. Each field contains one character, either R or 
N. Both parameters must be included. 


Example: 

77 RESTART PIC X VALUE "R". 

77 NO-RESTART PIC X VALUE "N". 
SESSION-ID 


If RESTART is specified, AIF places a unique session 
identifier in this field before returning control to the 
application. This field contains four system-supplied, 
alphanumeric characters that can be used to restart an 
abnormally terminated session. This field should be 
stored if restart is a possibility or if you plan to 
execute multiple sessions. 


Example: 


77° + SESSION-ID PIC X(4). 
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MSG-RSYNC-SEND-SOQN 
If RESTART is specified, AIF places the sequence number of 
the last message sent in this field each time the 
application does a send. This field contains up to five 
numeric characters and should be stored after each send in 
case a RESTART is necessary. | | 
Example: 
77 MSG-RSYNC-SEND-SQN PIC 9(5) VALUE 0. 
MSG-RSYNC-RCV-SON 
If RESTART is specified, AIF places the sequence number 
of the last message that the application has received in 
this field each time the application issues a receive. 
This field can be up to five numeric characters and 
should be stored after each receive so that it can be 
retrieved if a RESTART is necessary. 
Example: 
77 MSG-RSYNC-RCV-SQN PIC 9(5) VALUE QO. 
SEND-BUFFER 
This input parameter sets up the buffer for the messages 
to be sent. It can contain up to 32,767 characters. If 
the data in the send/receive buffers must be converted 
between ASCII and EBCDIC, the application must take care 
of the conversion. Two macros are provided for this 
purpose, CSACEB and CSEBAC. 
Example: 
77 SEND-BUFFER PIC X(80). 
SEND-BUFFER-SIZE 


This input parameter contains the length of the send data 
buffer. The maximum buffer size is 32,767 bytes. 


Example: 
77 SEND-BUFFER-SIZE PIC 9(5) VALUE 80. 
DATA-~BUFFER~ALIGN 


This input parameter specifies whether data starts in the 
left (L) or right (R) byte of the buffer address word. 


Example: 
77 DATA-BUFFER-ALIGN PIC X VALUE "L". 
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REPLY~REQUEST 


This input parameter indicates whether the message being 
sent 1S now complete (L), and if the application expects 
a reply to this message (R). LAST sets the end bracket 
indicator (not valid with CICS applications); REPLY sets 
the change direction indicator. 


Example: 


77 REPLY-REQUEST PIC X VALUE "R". 


MSG-COMPLETE 


FMH 


ROD 


This input parameter indicates whether a complete message 
is to be sent or Single response units which must be 
assembled into a chain. Possible values are "Y" or "N". 


Example: 


77> + MSG-COMPLETE PIC X VALUE "Y". 


This input parameter indicates whether the function 
Management header (FMH) is part of the data to be sent. 
Possible values are Y or N. 


Example: 


77 =FMH PIC X VALUE "N". 


This input parameter indicates whether a definite 
response is to be sent. Possible values are "Y" or "N", 


Examples: 


77° = RQD PIC X VALUE "N". 


RECEIVE-BUFFER | 


This input parameter sets up the buffer that receives the 
data during the session. The length of the data cannot 
exceed the size specified in the RECEIVE-BUFFER-SIZE (80 
characters in this example). 

Example: 


77 RECEIVE-BUFFER PIC X(80). 
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RECEIVE-BUFFER-SIZE 


This input parameter designates the size of the 
RECEIVE-BUFFER in characters. 


Example: 
77 RECEIVE-BUFFER-SIZE PIC 9(5) VALUE 80. 
MSG 
This input parameter designates whether the message being 
delivered to the application's buffer is a complete 
message Or a message segment. If a whole message is 
being delivered, AIF must wait for the entire message and 
determine whether or not it fits into the RECEIVE- 
BUFFER. If the message is too large for the receive 
buffer, AIF delivers only the size of the message so that 
a new buffer can be assigned. Possible values for this 
parameter are "Y" (complete message) or "N" (message 
segment). 
77 MSG ss PIG -X VALUE "¥", 
RECEIVED-DATA-LENGTH 
This ‘output parameter is to contain the length of the 
data received. | 
Example: | 
77 RECEIVED-DATA-LENGTH PIC 9(5) VALUE 0. 
INTERRUPT~DATA-LENGTH 


This output parameter contains the length of any 
interrupt data that has been received. 


Example: 

77 INTERRUPT-DATA-LENGTH PIC 9(5) VALUE 0. 
WORK-AREA-ID 

This output parameter, which is used by the CSWANY 

session call, contains the SNA-WORK-AREA value of the 

last COBOL session call that was executed. The 

WORK-AREA-ID does not have to correspond to the 

SNA-WORK-AREA unless there are no other active sessions. 


Example: 


77 WORK-AREA-ID PIC X(4). 
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SEND-~RESPONSE-TYPE 


This parameter indicates the type of response that is 
being sent. The following response types are possible: 


Type Value 
Negative Response ad 
Positive Response a as 
Wait for Ready-to-receive Se 
Not Ready-to-receive "N" 
None / " % 
Example: 
77 SEND-RESPONSE-TYPE PIC X VALUE "-". 
SENSE-DATA 


This input parameter is required when a negative response 
is being sent. The parameter is specified using 
hexadecimal-coded ASCII characters. 


Example: 
77 SENSE-DATA PIC X(8). 
RETURNS 


This output parameter defines the field into which the 
return code from all AIF session calls is placed. The 
RETURNS field is divided into RETURN-A, which consists of 
six yes/no conditions, and RETURN-B, which contains a 
four character decimal status code to provide further 
detail about the conditions indicated in RETURN-A. 


The two subfields of RETURNS are presented below and are 
described in Table 3-l. Refer to “Checking the ‘Return 
Code" for more information about RETURNS. 


02 RETURN-A. 
03 SESSION-ABORT PIC X VALUE 'N'‘. 
03  STOP-RCVD PIC X VALUE ‘'N’. 
03  INTRPT-RCVD PIC X VALUE ‘'N'. 
03 SERV-REQ-CANC PIC X VALUE ‘N'. 
03  SERV-REQ-COMP PIC X VALUE 'N'. 
03 COBOL-ERROR PIC X VALUE 'N'. 

02 RETURN-B PIC 9(4) VALUE 0. 
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Table 3-1. COBOL Session Call RETURNS Fields 


p meantng 
-SESSION-ABORT -LU-LU session or node has been aborted and 
no longer exists. ~ 


STOP-RCVD SOPR STOP command received. If the TIME 
argument is supplied with the STOP command, | 
check the TIME field for the time at which | 

|the session ends. This field indicates how | 
imuch time you have to complete the session. | 


INTRPT~RCVD Interrupt received. See INTERRUPT output 
parameter. 
SERV-REQ-CANC iThis request has been cancelled. The > 


| application must isSue it again if 
necessary. 


SERV-REQ-COMPLETE | This request has been completed. 


Error in using COBOL interface to the AIF. 


COBOL-ERROR 
: See RETURN-B for return code. 


INTERRUPT-TYPE 


This parameter shows the reason for interrupt when one is 
sent or received. 


Example: 
77  INTERRUPT-TYPE PIC 99 VALUE 0. 


A complete list of interrupt types is provided in 
Appendix D. 


RCVD-SENSE 
This output parameter contains the hexadecimal 
representation of the sense data from the host if sense 
data is present. This field corresponds to SC_ESD in the 
SCCB. 
Example: 


77 RCVD-SENSE PIC X(8). 
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TIMEOUT 


This output parameter provides a formatted data area for 
the date and time that a session must be stopped when a 
STOP command is processed for the seSSion or node. This 
field must be 14 decimal digits long, as follows: 


Example: 
01 TIMEOUT 
02 DATEI. 
03 YY PIC 99 VALUE QO. 
03 MM PIC 99 VALUE Q. 
03 DD PIC 99 VALUE QO. 
02 TIME1. 
03 HH PIC 99 VALUE 0. 
03 MN PIC 99 VALUE QO. 
03 SSSS PIC 9(4) VALUE 0. 


TERMINATE-TYPE 


This input parameter indicates whether termination is 
normal (N) or abnormal (A). 


Example: 
77 TERMINATE-TYPE PIC X VALUE "N". 
GET-ATTR-TYPE 
This input parameter indicates what attribute the CSGTAT 
call is requesting. The only attribute available is 01 
(bind image). 
Example: 
77 GET-ATTR-TYPE PIC 99 VALUE "O01". 
OUTPUT-CONTROL~-WORD 
This output parameter provides information about the 
received data. The characteristics that can be specified 
are listed below. Each of these parameters must be 


stated. Possible values are "Y" or "N". 


01 OUTPUT-CONTROL-WORD. 


O02 REPLY-REQUESTED-CD | PIC X. 
O02 DEFINITE-RESP-REQ PIC X. 
02 LAST-MSG~RCVD-EB PIC X. 
O02 FMH-IN-RCVD-DATA PIC X. 
02 BEGIN-MSG-RCVD-BC PIC X. 
02 END-MSG-RCVD-EC PIC X. 
02 SET-SEND-RECV-SEQ PIC X. 
02 APPL-~RESEND-REQUIRED PIC X. 
02 HOST-RESEND-REQUIRED PIC X. 
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CONVERT—-FROM-FIELD 
This input parameter defines the buffer to be converted by 
the ASCII-to-EBCDIC conversion subroutines. The maximum 
size of this buffer is 32,767 bytes. 
Example: | | 
77. CONVERT-FROM-FIELD PIC X(20). 
CONVERT~FROM-LEFT-POSIT 


This input parameter provides a starting index for the 
data in CONVERT-FROM-FIELD. : 


Example: 

01  CONVERT-FROM-LEFT-POSIT COMP-1 VALUE 1. 
CONVERT-TO-FIELD 

This input parameter defines the buffer into which the 

converted data will be placed by the ASCII-to-EBCDIC 

conversion subroutines. The maximum size of this buffer 

is 32,767 bytes. | | . 

Example: 

77  CONVERT-TO-FIELD . prc X(15). 
CONVERT-TO~-LEFT-POSIT 


This input parameter provides a starting index for the 
data in CONVERT-TO-FIELD. 


Example: 
Ol CONVERT-TO-LEFT-POSIT COMP-1 VALUE 6. 

CONVERS ION-LENGTH 
This input parameter contains the length in bytes of the 
data to be converted. The maximum length of this data is 
32,767 bytes. | 


Example: 


Ol §CONVERSION-LENGTH COMP-1 VALUE 10. 
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Host-Initiated Sessions 


AIF supports host-initiated sessions; that is, it accepts 
unsolicited binds. In order to accept an unsolicited bind, an LU 
must be reserved with the HOST INIT SESS parameter specified as Y 
(YES) in the LU entry of the configuration file. 


When the application program begins execution, it must issue 
a CSACPT session call as the first session call, providing the 
STD name and the node name for the LU to be used. The CSACPT 
session call allows AIF access to a host-initiated session. AIF 
associates the first unsolicited bind (host-initiated session 
request) to the first CSACPT session call from the task group 
that AIF spawned. 


An unsolicited bind can be for a program designated in the 
AUTO ATTACH entry of the AIF configuration or it can be any other 
unsloicited bind sent from the host. 


When AIF receives an unsolicited bind for a specific LU, AIF 
checks the LU entry for an AUTO ATTACH program. If it finds one, 
AIF spawns a group with the program_ name as the lead task, and 
passes to the lead task the STD name, node_name, and base level 
used in the spawn group. If AIF does not find an AUTO _ ATTACH 
program in the LU entry, it accepts the session and looks for the 
program name in the first four bytes of the first record 
received, then spawns a group based on the ATTACH PROGRAM entry. 
If none is provided, default values are used to spawn the group. 


The application can issue multiple CSACPTs to check for 
additional host-initiated sessions intended for this 
application. For an application to accept more than one session, 
all LUsS that can receive binds for that application must be 
reserved LUs with HOST _INIT_SESS=Y. Each of these LUs must have 
the same group _id specified in the LU entry in the configuration 
file. 


NOTE 


In order to execute a START UP.EC instead of an 
attached program, you must create an attach 
program table entry with a dummy name (eg., 

ATTACH PROG=ABC);, specifying the appropriate spawn 
group parameters, and include an ALIAS for ABC 
(eg., ALIAS=>>SYSLIB2>EC?EXECL) to execute the 
START UP.EC specified in the home directory. 


Refer to SNA6 Network Configuration for further 
information. 
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Linking the Program 


If a COBOL application program is written aS a program to be 
attached, that is, it includes an ACCEPT session call (CSACPT), 
then a LINKAGE SECTION must be included in the program. The 
LINKAGE SECTION must include three entries to accommodate the 
node name, STD name, and base level, as in the following example: 


LINKAGE SECTION. 

77 NODE PIC X(8). 

77 STD PIC XX. 

77 BASE LVL PIC 99. 

PROCEDURE DIVISION USING NODE, STD, BASE_LVL. 


The LINKAGE SECTION is necessary whether the program is to be 
compiled using COBOLA or COBOLM. The programs are coded in the 
same way, regardless of which compiler is used, but they are 
linked differently. 


Within the COBOL application program, the three fields in the 
LINKAGE SECTION must be moved to corresponding fields in 
WORKING-STORAGE before they can be used in any AIF calls. 


Two sample LINK directive sets are presented below to 
demonstrate the different Linker directives you can use. The 
following matrix shows which set you should use, based upon LU 
type, whether you are writing an attached program, and the COBOL 
compiler you are uSing. 


Compiler used: = COBOLA | ~ COBOLM 


ACCEPTS 3 1 
calls used: 


No ACCEPTS 1 1 
calls used: 


LINK DIRECTIVE SET l 


&N 

&A 

LINKER &1 

LIB >LDD>ZCART/ 
LIB >LDD>ZCMRT* 
LINK &l 

LINK CSPHRZ 

MAP 

QT 


* Use either LIB, where ZCART is used for COBOLA and ZCMRT 
is used for COBOLM. 
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LINK DIRECTIVE SET 3 


&N 

&A 

LINKER &l 

LIB >LDD>ZCART 
LINKN CSLEAD 
LINK &l 

LINK CSPHRZ 
MAP 

LDEF CBLADR, &1 
QT 


NOTES 


The module CSPHRA is the parameter processing 
routine for LU Type 0 calls. 


Programs compiled by COBOLM automatically have the 
node name, STD name, and base level moved to the 
LINKAGE SECTION. Programs compiled by COBOLA use 
the CSLEAD Linker module to perform this 

function. This module must be linked into the 
bound unit of any program that executes a CSACPT 
Or CSATCH and is compiled using COBOLA. 


Refer to the Multiuser COBOL Compiler User's Guide 
(HE32) for information about linking programs 


compiled under COBOLA and COBOLM into a engee 
bound unit. 


Checking the Return Code 


On return from AIF, a COBOL interface routine fills the 
output parameter fields with the SCCB results from the 
subroutine. 


After the session call is made, a return code is placed in 
the RETURNS field. The RETURNS field is divided into RETURN-A, 
which consists of six yes/no conditions, and RETURN-B, which 
contains a four-character decimal return code to provide further 
detail about the conditions indicated in RETURN-A. 


RETURN-A reports the following conditions: 


SESSION-ABORT--The session has been aborted. 
STOP-RCVD--SOPR stop command has been received. 
INTRPT-RCVD--An interrupt has been received. 
SERV-REQ-CANC--This request has been cancelled. 
SERV-REQ-COMP--This request has been completed. 
COBOL~ERROR--A COBOL interface error has occurred. 
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If the value of COBOL-ERROR is Y, then an error has occurred 
in the COBOL interface to AIF. The following are the general 
return codes that are in RETURN-B if you have a COBOL error. The 
value of XX is the number of the parameter in which there is an 
error: | 


Code Meaning 

XXOl Unrecognized parameter 

XX02 Parameter must be 1 byte long 
XX03 Parameter must be 5 bytes long 
XX04 Default not acceptable 

XX05 Node name error 

XX06 Remote LU name error 

XX07 #£=Invalid session-id 

XX08 Unknown interrupt type 

XX09 Nondecimal digit 

XX10 Nonhexadecimal digit 

XX11 Error in conversion 


The values of both RETURN-A and RETURN-B should be checked 
after the completion of each session call. Since it is possible 
to have more than one Y value in RETURN-A, and to have a value 
greater than zero after a successfully completed call, the 
application should check all fields in RETURN-A and RETURN-B for 
all possible combinations. 


Lf the return code contains a "no error" message, go to the 
next segment of the program. If the return code contains an 
error condition, you might decide to record it to an error-out 
file, go to another segment of the program, or shut down 
completely. 


Additional return codes are listed with the individual 
session calls to which they pertain. The return codes and their 
values are listed in Appendix D. 
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SESSION CALLS 


The AIF session calls used in COBOL programs are detailed on 
the following pages. 


Table 3-2. AIF Session Calls 


Session | } 
Call Description 


CSACPT 
CSCASR 
CSGTAT 
CSINIT 
CSPOLL 
CSRECV 
CSRI 
CSSEND 


Accept session call 


| Cancel outstanding asynchronous request 
Get attributes 
Initiate or restart a session 


Test for LU associated with task group 


Receive message in application's buffer 


| Read interrupt 


| Request AIF to send a message or message 
| segment 


CSSI 
CSSRSP 
CSTERM 
CSTEST 
CSWANY : Wait on any event 

CSACEB | ASCII-to-EBCDIC conversion | 


CSEBAC ! EBCDIC-to-ASCII conversion 


|; Send interrupt 
| Application instructs AIF to send a response 
; Terminate session 


| Test conditions 
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CSACPT 


CSACPT - Accept Session Call 


The CSACPT session call causes AIF to connect to a host 
initiated session. 


FORMAT: 


CALL "CSACPT" USING SNA-WORK-AREA 
NODE-NAME 
REMOTE-LU-NAME 
STD-NAME 
SYNC-CALL 
SESSION-ID 
NO-RESTART 
MSG-RESYNC-SEND-SQN 
MSG-RESYNC-RCV-SON 
RETURNS 
INTERRUPT-TYPE 
TIMEOUT 
RCVD-SENSE 


DESCRIPTION: 


The CSACPT session call causes AIF to connect to a 
host-initiated session if there is one available. If there 
is no session, AIF returns and continues processing. The LU 
to which this bind refers is a reserved LU. 


If your application is part of a host-initiated session, the 
CSACPT session call should be the first call executed. When 
this call is completed, the session is in receive state. 
NOTE 
This call is always made synchronously. 

RETURN CODES: 

The application should check the return code after each 
execution of a session call. In addition to the values 
described for RETURN-A and RETURN-B in "Checking the Return 


Code," the CSACPT session call can return the following 
values in RETURN-B: 


Value Description 


0000 No error 
0025 ACCEPT Timed out 
0064 Invalid node name 


3-20 GR11-02 


CSACPT 


0153 Invalid STD name 
0154 Invalid LU type in STD 
0155 No LU attached 


SESSION-ID 


This four-character field is supplied by AIF after it 
accepts the session request. The first word is the 
session group name, which is assigned by AIF to each of 
the sessions running in this session group. This value 
is used by AIF to return a unique one-word session 
identifier for this session. This value is stored in the 
second word. This field is reserved for system uSe and 
Must never be altered by the application. 
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~CSCASR 


CSCASR - Cancel Asynchronous Request 


The CSCASR session call causes AIF to eeuce! an outstanding 
asynchronous request, if possible. 


FORMAT: 
CALL "CSCASR" USING SNA-WORK-AREA 
DESCRIPTION: 


The CSCASR session call cancels an outstanding asynchronous 
request. If the previously executed asynchronous request was 
already completed when the CSCASR was executed, then the 
return code from CSCASR is for a completed asynchronous 

call. If the previously executed asynchronous cali was not 
completed when CSCASR was executed and AIF succeeded in 
cancelling the request, the return code from CSCASR indicates 
that the call has been cancelled. 


NOTE 


The CSCASR session call cannot be used to cancel a 
CSINIT session call, even if it has been executed 
asynchronously. | 


RETURN CODES: 


The application should check the return code after each 
execution of a session call. After the completion of the 
CSCASR session call, the following combinations are possible: 


@ If SERV-REQ-CANC=Y (all other fields in RETURN-A = N) and 
RETURN-B=0, you have cancelled the previously outstanding 
call. 


e If SERV-REQ-CANC=Y and RETURN-B>O, the previous call 
completed with error. (RETURN-B contains the error code 
for the previous call.) 


@ If SERV-REQ-COMP=Y and RETURN-B=0, the previous 
outstanding call executed. 


In addition to these combinations and the values described 


for RETURN-A and RETURN-B in "Checking the Return Code," 
CSCASR can return the following values in RETURN-B. 


Value Description 


0023 No outstanding asynchronous call 
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CSGTAT 


CSGTAT - Get Session Attributes 


The CSGTAT session call provides the application with an 
attribute for the session specified in the SNA-WORK-AREA. 


FORMAT: 


CALL "CSGTAT" USING SNA-WORK-AREA 
RECEIVE-BUFFER 
RECEIVE-BUFFER-SIZE 
DATA~BUFFER-ALIGN 
_GET-ATTR-TYPE 


DESCRIPTION: 


The CSGTAT session call provides the application with an 
attribute for the session whose SNA-WORK-AREA is specified 
when issuing the call. If you plan to use this session call 
to request the bind image, the STD entry in the AIF 
configuration must include the parameter SAVE BIND=Y. 


Special notice should be given to the situation where an 
interrupt is received either prior to or during the execution 
of the CSGTAT session call. 


1. When an interrupt is received before the execution of the 
CSGTAT, the application is given the data that was in the 
receive queue and informed of the interrupt. 


2. I£ an interrupt is received during the execution of a 
CSGTAT, the order is not completed, control is returned 


to the application, and the return code indicates that an 
interrupt has been received. 


NOTE 
This call is always made synchronously. 
RETURN CODES: 
The application should check the return code after each 
execution of a session call. After the completion of the 


CSGTAT session call, the following combinations are possible: 


® If SERV-REQ-COMP=Y and RETURN-B=0, the receive data buffer 
contains the attributes of the session specified. 
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CSGTAT 


e If the value of another field in RETURN-A is Y, the CSGTAT 
was not successful, and RETURN-B contains the return code 
to indicate the reason for the error. 


In addition to these combinations and the values described 
for RETURN-A and RETURN-B in "Checking the Return Code," the 
CSGTAT session call can return the following values in 
RETURN-B: 


Value Description 


0000 No error - session established 

0016 Improper state - i.e., trying to receive, but in 
send state , 

0024 No BIND IMAGE saved for SSGTAT 


1013 Receive buffer too small 
1014 Invalid attribute type 
1032 Receive rejected; data traffic cleared/inactive 
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CSINIT 


CSINIT -—- Initiate Session 
The CSINIT session call can be used in two contexts; 


1. To establish a session between the application and the 
transaction at the host 


2. To restart this session if it has been abnormally 
terminated. : 


In issuing the session call, you must indicate for which 
purpose it is to be executed. 


CALL "CSINIT" USING SNA-WORK-AREA 
NODE~NAME 
REMOTE-LU~ NAME 
STD-NAME 
SYNC-CALL | ASYNC-CALL 
SESSION-ID 
NO-RESTART 
MSG-~RESYNC~SEND~SQN 
MSG-RESYNC~RCV~SON 
RETURNS 
INTERRUPT<-TYPE 
TIMEOUT 
RCVD-SENSE 


CSINIT to Establish a Session 


The initiate session call requests that AIF establish a 
session between an LU at the DPS 6 or the DPS 6 PLUS and an 
LU at the host, and that the local LU be assigned exclusively 
to the application. Always specify NO_RESTART on initial 
start-up. | 


In the event that AIF assigns a preestablished session to the 
application, the application should store the send/receive 
sequence numbers, in case a RESTART of this session ever 
becomes necessary. These sequence numbers are not reset to 
zero after each use. To the host, this appears as one 
session. On the local application side, the session is a 
serially reusable resource. 


If multiple sessions are being established, a separate 
SNA-WORK-AREA must be provided for each session. The session 
ID should also be stored so that if a RESTART becomes 
necessary, you can specify which session to restart. 
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NOTE 


A CSINIT session call, executed asynchronously, 
cannot be cancelled by using the CSCASR session 
call. 


CSINIT to Restart a Session 


The CSINIT session call is used to restart a session in the 


event that it has been abnormally terminated. 


Restart logic 


and restart rules are described in detail in Section 6. 


RETURN CODES: 


The application should check the return code after each 


execution of a session call. 


After the completion of the 


CSINIT session call, the following combinations are possible: 


e If SERV-REQ-COMP=Y and RETURN-B= oe the session has been 
- initiated successfully. | 


e If the value of another field in RETURN-A is Y, 
was not successful, 


the CSINIT 
and RETURN-B contains the return code 


to indicate the reason for the error. 


In addition to these combinations and the values described 
for RETURN-A and RETURN-B in "Checking the Return Code," the 
CSINIT session call can return the following values in 


RETURN-B. 


Value 


0000 
0003 
0004 
0016 


0032 
0048 


0049 
0064 
0065 
0150 
0151 
0152 
0153 
0154 
1809 


Description 


No error - session established 

Negative response received 

Bind negotiation failed 

Improper state - i.e€., trying to CSINIT with 
RESTART, but not in abnormally terminated state 
Restart not possible 

System error - i.e., not enough memory available 
to establish session 

Resource not available 

Invalid node name 

Invalid session-ID (Restart) 

AIF Node not yet active 

No active LU for session 

No LU available for session 

Invalid STD name 

Invalid LU type in STD 

Link failure 
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Each time you do a CSINIT with RESTART, you should check the 
OUTPUT-CONTROL-WORD to verify the send/receive sequence 
numbers and to find out whether it is necessary to retransmit 
the last message either from the DPS 6 or DPS 6 PLUS or from 
the host. 


The RCVD-SENSE field contains sense data, if present, as 
listed in Appendix D. 
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CSPOLL ~- Poll Session Call 


The CSPOLL session call checks to see if any LU associated 
with the application program's task group has received an 
unsolicited bind from the remote program. 


FORMAT : 
CALL "CSPOLL" USING SNA-WORK-AREA 
NODE~NAME 
STD-NAME 
RETURNS 


DESCRIPTION: 


The CSPOLL session call causes AIF to test to see if any LU 
associated with the application program's task group has been 
attached (bound) by the remote program. The CSPOLL session 
call is Similar to the CSACPT session call except that the 
CSPOLL does not cause a connection between AIF and the 


application program if a bind has be received. 


The SNA WORK-AREA used for a CSPOLL must be unique and should 
not be currently used by an active session. 


NOTE 
This call is always made synchronously. 
RETURN CODES: 


The application should check the return code after each 
execution of a session call. In addition to the values 
described for RETURN-A and RETURN-B in "Checking the Return 
Code," the CSACPT session call can return the following 
values in RETURN-B. 


Value Description 


0064 Invalid node name 

0153 Invalid STD name 

0155 No LU attached 

0005 There is an LU being bound 
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CSRECV - Receive Message 


The CSRECV session call causes AIF to deliver a message or 
message segment from the session partner to the application's 
buffer. 


FORMAT: 


CALL "CSRECV" USING SNA-WORK-AREA 
RECEIVE-BUFFER 
RECEIVE-BUFFER-SIZE 
DATA~BUFFER-~ALIGN 
SYNC-CALL | ASYNC-CALL 
MSG 
RECEIVED-DATA- LENGTH 
OUTPUT-~CONTROL-WORD 


DESCRIPTION: 


The CSRECV session call causes AIF to deliver a message to 
the application's buffer from the session partner. 


If the user specifies MSG, then AIF assembles the chain 
before delivery. If the user's buffer is not large enough, 
the message is not delivered; the actual length of the 
message or message segment is returned to the application in 
the RECEIVED-DATA-LENGTH. The application can either execute 
the receive again with an adequate buffer, or move N to the 
MSG field and execute the receive. If you specify N, single 
segments are delivered to the application's buffer. If the 
message segment delivered is the last segment, then AIF sets 
the end of message bit in the OUTPUT-CONTROL-WORD. 


Special notice should be taken when an interrupt is received 
prior to or during the execution of a CSRECV. 


If an interrupt has already been received when the CSRECV 
session call is executed, the application is given the data 
and informed of the interrupt. RETURNS shows either 
SERV-REQ-CANC=Y and INT-REC=Y or SERV-REQ-COMP=Y and 
INT-REC=Y, depending on whether or not the data was in the 
receive queue. 


If an interrupt is received during the execution of a CSRECV, 


the order is not completed, and return is made to the 
application. 
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Check the OUTPUT-CONTROL-WORD before proceeding, to determine 
if end of message indicator has been received or if the host 
requires a response. 


RETURN CODES: 


The application should check the return code after each 
execution of a session call. After the completion of the 
CSRECV session call the following combinations are possible: 


@e If SERV-REQ-COMP=Y and RETURN-B=0, then the CSRECV had 
been completed with no error. 


e If the value of another field in RETURN-A is Y, the CSRECV 
was not successful, and RETURN-B contains the return code 
to indicate the reason for the error. 


If SERV-REQ-COMP=Y, check the OUTPUT-CONTROL-WORD to make 
Sure that the beginning of message and end of message 
indicators have been received. If there is no end of message 
indicator, you must do another CSRECV to receive the next 
segment of the message. 


In addition to these combinations and the values for RETURN-A 
and RETURN-B described in "Checking the Return Code," the — 
CSRECV session call can return the following values in 
RETURN-B. 


Value Description 
0000 No error - CSRECV successful 


0016 Improper state - i.e., trying to receive while in 
send state 

0019 Receive buffer too small 

0048 System error - unable to receive 

0050 Receive rejected; data traffic eieanea naebive 

0065 Invalid session-ID 

0066 . Asynchronous Service request outstanding 


0256 Session unbound by host 
1809 Link failure 


NOTE 
If a RESTART of this session is a possibility, 
then the receive sequence number should be stored 


by the application executing this CSRECV session 
call. 
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CSRI_- Read Interrupt 


The CSRI session call reads interrupt information from the 
host or control information from the AIF LU when there is no 
other AIF session call outstanding. 


FORMAT: 


CALL "CSRI" USING SNA-WORK-AREA 
INTERRUPT-DATA-LENGTH 


DESCRIPTION: 


The CSRI session call enables the application to read 
interrupt information from the host or control information 
from AIF when there is no other AIF session call outstanding. 


If either of the following situations occurs, the condition 
is reported to the application, the SNA-WORK-AREA is updated 
the ‘same way as for CSTEST or CSWANY and a return is made to 
the application. 


As with any asynchronous call, the application must execute a 
CSWANY or CSTEST session call to determine when the CSRI 
session call is complete and regain control. 


1. When an interrupt is received, the INTERRUPT-TYPE and the 
SENSE-DATA fields in the SNA-WORK-AREA contains the 
appropriate information. 


2. if Gata has been received for which there is no 
outstanding order, the user must issue a CSRECV to gain 
access to this data. The length of the received data is 
in INTERRUPT-DATA-LENGTH parameter of the SNA-WORK-AREA. 

NOTE 
The CSRI session call is always made asynchronously. 


RETURN CODES 

The application should check the return code after each 
execution of a session call. After the completion of the 
CSRI session call, the following combinations are possible: 


® If SERV-REQ-COMP=Y and RETURN-B=0, the interrupt has been 
received with no error. 
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e If the value of another field in RETURN-A is Y, the CSRI 
was not successful, and RETURN-B contains the return code 
to indicate the reason for the error. 


In addition to these combinations and the values for RETURN-A 
and RETURN-B described in "Checking the Return Code," the 
CSRI session call can return the following values in 
RETURN-B. | | 


Value Description 


0002 Data received but no read | 

0016 Improper state - i.e., trying to receive while 
in send state | | 

0050 Receive rejected; data traffic cleared/inactive 
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CSSEND —- Send Message 


The CSSEND session call sends a message (RU) or message 
segments (chain) to a session partner. 


FORMAT: 


CALL "CSSEND" USING SNA-WORK-AREA 
SEND-BUFFER 
SEND-BUFFER-SIZE 
DATA-BUFFER~ALIGN 

_ SYNC-CALL | ASYNC-CALL 

REPLY~REQUEST 
MSG-COMPLETE 
F MH 
ROD 


DESCRIPTION: 


The CSSEND session call instructs the sending of a message 
(RU) or message segments (chain) to a remote LU. When you 
are sending an entire message, the MSG-COMPLETE parameter 
must be Y. When sending message segments, the MSG-COMPLETE 
parameter must be N, except for the last segment, when 
MSG-COMPLETE = Y. 


Special notice should be given to the situation where the 
application is executing a CSSEND session call but an 
interrupt is received before or during the execution of the 
call. | 


If an interrupt has already been received when the CSSEND 
session call is executed, the application is informed of the 
interrupt. If an interrupt is received during the execution 
of the CSSEND session call, the CSSEND session call 
completes, and when the application executes the CSWANY or 
CSTEST session call, return is made to the application. The 
return code indicates the interrupt received and the result 
of the CSSEND session call. 


NOTE 
If restart of this session is a possibility, then 
the send sequence number and the entire message 


must be saved by the application executing this 
CSSEND session call. 
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RETURN CODES: 


The application should check the return code after each 
execution of a session call. After the completion of the 
CSSEND session call, the following combinations are possible. 


e If SERV-REQ-COMP=Y and RETURN-B= oe the CSSEND has been 
completed with no error. 


e If the value of another field in RETURN-A is Y, the CSSEND 
was not successful, and RETURN-B contains the return code 
to indicate the reason for the error. 


In addition to these combinations and the values for RETURN-A 
and RETURN=B described in "Checking the Return Code," the 
CSSEND session call can return the following values in 


RETURN-B. 


Value 


0000 
0003 
0016 


0018 
0048 


0050 
0256 


Description 


No error - send successful 

Negative response received | 

Improper state - i.e., trying to send in receive 
state 

Invalid input control indicator(s) - 1.e., 
REPLY-REQUEST improperly indicated 

System error 

Send rejected 

Session unbound by host 
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CSSI - Send Interrupt 


The CSSI 


session call is used to send Data Flow Control 


commands to the session partner or to pass control information to 
the System Service Control Point or to AIF. 


FORMAT: 
CALL 'CSSI' USING SNA~WORK~AREA 
SEND-BUFFER 
SEND-BUFFER-SIZE 
DATA-~BUFFER-~ALIGNMENT 
INTERRUPT-TYPE 
REPLY-NAME 
SENSE-DATA 
DESCRIPTION: 
The CSSI session call is used to send the following three 
types of information: 
1. Send data flow control commands to the session partner 
2. Pass control information to AIF. 
3. Pass statistical information to SSCP. 


A list of interrupt types is discussed in Appendix D. 


The format of the buffers that you create to send CNM, alerts 
and maintenance statistics are detailed in Section 7. 


NOTE 


The CSSI session call is always made synchronously. 


RETURN CODES: 


The application should check the return code after each 
execution of a session call. After the completion of the 
CSSI session call, the following combinations are possible. 


@® If SERV-REQ-COMP=Y and RETURN-B=0, the interrupt has been 
sent with no error. 


@e If the value of another field in RETURN-A is Y, the CSSI 
was not successful, and RETURN-B contains the return code 
to indicate the reason for the error. 
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In addition to these combinations and the values for RETURN-A 
and RETURN-B described in "Checking the Return Code," the 
CSSI session call can return the following values in. 
RETURN~B. 


Value Description 
0000 No error 


0003 Negative response received 

0016 Improper state 

0018 Invalid input control indicator (s) 

0020 Invalid interrupt type © 

0021 $$ Invalid status word/user code 

0050 Receive rejected; data traffic cleared/inactive 
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CSSRSP - Send Response 


The CSSRSP sesSion call requests that AIF send a response to 
a previous message. 


FORMAT: 


CALL "CSSRSP" USING SNA~WORK-AREA 
SYNC-CALL | ASYNC-CALL 
SEND-RESPONSE-TYPE 
SENSE-DATA 


DESCRIPTION: 
The CSSRSP session call sends a response to a previous 


message on behalf of the application. The following response 
types are possible: 7 


Type Value 
Negative Response an 
Positive Response i 
Wait for Ready-to-receive "R* 
No Ready-to-receive "nN" 
None _ © 


If this response is negative, the application also has the 
option of sending sense data. 


RETURN CODES: 

The application should check the return code after each 
execution of a session call. After the completion of the 
CSSRSP session call the following combinations are possible. 


#® If SERV-REQ-COMP=Y and RETURN-B=0, the response has been 
sent with no error. | 


@® If the value of another field in RETURN-A is Y, the CSSRSP 


was not successful, and RETURN-B contains the return code 
to indicate the reason for the error. 
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In addition to these combinations and the values for RETURN-A 
and RETURN-B described in "Checking the Return Code," the 
CSSRSP session call can return the following values in 

"  RETURN—B: 


Value Description 


0000 No error 
0016 Improper state | 
0018 Invalid input control indicator(s) - SEND 
7 RESPONSE TYPE improperly indicated 
0050 Send rejected; data traffic cleared/inactive 
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CSTERM - Terminate Session 
The CSTERM session call terminates the AIF session. 
FORMAT : 


CALL "CSTERM" USING SNA-WORK-AREA 
TERMINATE-TYPE 


DESCRIPTION: 

The CSTERM session call terminates the AIF session. 

Termination can be either normal or abnormal. Whether it is 

normal or abnormal is indicated by a parameter within the 

CSTERM session call. 

e If the CSTERM session call indicates normal termination, 
an orderly termination message is sent to the session 
partner's LU. 


@ If the CSTERM session call indicates abnormal termination, 
the following events occur: 


~ The AIF LU terminates the session. 


- AIF sends an abnormal termination message to inform the 
host LU. 


After the session is terminated, the LU task is again 
available for other users. 


Abnormal termination can be issued at any time; the last 
session call is cancelled if it is not completed. 


NOTE 
The CSTERM BeEniOn call is always made synchronously. 
RETURN CODES: 
The application should check the return code after each 
execution of a session call. After the completion of the 


CSTERM session call the following combinations are possible: 


® If SERV-REQ-COMP=Y and RETURN-B=0, the session has been 
terminated. | 
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e If the value of another field in RETURN-A is Y, the 
session was not terminated as intended, and RETURN-B 
contains the return code to indicate the reason for the 
error. 


In addition to these combinations and the values for RETURN-A 
and RETURN-B described in "Checking the Return Code," the 
CSTERM session call can return the following values in 
RETURN-B: 


Value Description 


0000 No error : 
0016 Improper state ~- i.e., normal termination 
rejected because data is on receive queue 
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CSTEST - Test for Events 


The CSTEST session call tests conditions for the session 
whose work area address is provided in SNA-WORK-AREA. 


FORMAT: 


CALL "CSTEST" USING SNA-WORK-AREA 
INTERRUPT-DATA-LENGTH 


DESCRIPTION: 


This session call tests conditions for the session currently 
being executed. Executing this call causes AIF to 


immediately report to the application one of the following 
conditions: 


1. No event 
2. Interrupt received 
3. Asynchronous order completed or cancelled 


4. Permission to send after a send was rejected due to data 
traffic inactive or pacing 


5. Data has been received for which there is no outstanding 
order. 


Conditions 2 and 3 can coexist. 


If an interrupt was received, the INTERRUPT-TYPE and the 
SENSE-DATA fields in the SNA-WORK-AREA contain information 
pertaining to the type of interrupt. 


If an asynchronous order were completed or cancelled, then 
AIF delivers the return code of the completed order 
immediately, and the application must examine all pertinent 
fields in the SNA-WORK-AREA. 


If data has been received for which there is no outstanding 
order, the user must issue a CSRECV session call to gain 
access to this data. Nothing is delivered to the usSer as a 
result of the CSTEST sesSion call, but the length of the 
received data is found in the INTERRUPT-DATA-LENGTH parameter 
of the SNA-WORK-AREA. 
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NOTE 


The CSTEST session call can be executed while an 
asynchronous call is outstanding. This session 
call is always made synchronously. If there was 
an asynchronous order outstanding, the condition 
is tested, reported, and the order remains 
outstanding. Once the test determines that the 

order has been completed, the call is no longer 
outstanding. 


RETURN CODES: 


The application should check both RETURN-A and RETURN-B after 
each execution of a session call. After the completion of 
the CSTEST call, the following combinations are possible. 


e If all of the fields in RETURN-A are N and RETURN-B=0, 
there is an asynchronous call outstanding. 


e If SERV-REQ-COMP=Y and RETURN-B=0, then the previously 
executed asynchronous call has been completed 
successfully. 


e If SERV-REQ-COMP=Y and RETURN-B>0, then the previously 
executed asynchronous call has been completed with error. 


e If SERV-REQ-CANC=Y and RETURN-B>0, then the previously 
executed call has been cancelled for the reason 
designated. 


In addition to these combinations and the COBOL error codes 


described in “checking the Return Code," the CSTEST session 
call can return the following values in RETURN-B: 


Value Description 


0000 No event 

0001 Permission to send - 1.e€., a previous attempt to 
send was rejected 

0002 Data received but no read 
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CSWANY - Wait on Events 


The CSWANY session call causes AIF to issue a system “wait 
any" on behalf of the application. The application is dormant 
until one of the requests is complete. 


FORMAT : 


CALL "CSWANY" USING SNA-WORK-AREA 
WORK~AREA~ID 


DESCRIPTION: 


The CSWANY session call causes execution of the application 
program to be suspended until any asynchronous request 
terminates. Asynchronous requests other than AIF requests 
also cause control to return to the CSWANY session call 
executor providing that the P-bit in the request block was 
set by the executor prior to the execution of the CSWANY 
macrocall. 


You must specify an SNA-WORK-AREA when issuing a CSWANY. If 
an application has multiple sessions established, specifying 
an SNA-WORK-AREA does not imply that the CSWANY responds only 
to an event on that session. If an application has more than 
one session established, with outstanding asynchronous orders 
on multiple sessions, executing a CSWANY session call returns 
control to the application with WORK-AREA-ID containing the 
session ID of the session whose request has completed. | 


NOTE 
The CSWANY session call is always made synchronously. 
RETURN CODES: 


The application should check both RETURN-A and RETURN-B after 
each execution of a session call. After the completion of 
the CSWANY call, the following combinations are possible. 


@ If SERV-REQ-COMP=Y and RETURN-B=0, then the previously 
executed asynchronous call has been completed 
successfully. 


@® If SERV-REQ-COMP=Y and RETURN-B>0, then the previously | 
executed asynchronous call has been completed with error. 


® If SERV-REQ-CANC=Y and RETURN-B>0O, then the previously 
executed call has been cancelled for the reason 
designated. 
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CSACEB - ASCII-to-EBCDIC Conversion 
The CSACEB session call converts data from ASCII to EBCDIC. 
FORMAT: 


CALL "CSACEB" USING SNA-WORK-AREA 
CONVERT-FROM-F IELD 
FROM-LEFT-MOST-POSITION 
CONVERT~-TO-FIELD 
TO-LEFT-MOST-POSITION 
CONVERS ION-LENGTH 


DESCRIPTION: 

The CSACEB session call converts data from ASCII to EBCDIC. 
The parameters used with this session call provide the 
buffers containing the data to be converted and the converted 
data. | | | 


The maximum length of data that can be converted is 32,767 
bytes. | 


If you want to convert the data in place, specify the same 
dataname for the CONVERT-FROM-FIELD and the CONVERT-TO-FIELD. 
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CSEBAC -—- EBCDIC-to-ASCII Conversion 
The CSEBAC session call converts data from EBCDIC to ASCII. 
FORMAT: 


CALL "CSEBAC" USING SNA-WORK-AREA 
CONVERT-FROM-FIELD 
FROM-LEFT-MOST-POSITION 
CONVERT-TO-FIELD 
TO-LEFT-MOST-POSITION 
CONVERS ION-LENGTH 


DESCRIPTION: 

The CSEBAC session call converts data from EBCDIC to ASCII. 
The parameters used with this session call provide the 
buffers containing the data to be converted and the converted 
data. 


The maximum length of data that can be converted is 32,767 
bytes. 


If you want to convert the data in place, specify the same 
dataname for the CONVERT-FROM FIELD and the CONVERT-TO-FIELD. 
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Section 4 

PROGRAMMING 

LU TYPE 6.2 CONVERSATIONS 
IN ASSEMBLY LANGUAGE 


This section describes the Assembly language verbs that are 
used in an LU Type 6.2 conversation with host service or 
transaction programs. Topics include: 


® Basic Conversation Verbs 


® Programming considerations 
- Getting started | 
- Creating a verb parameter block 
- Conversation states 
- Checking the return code 


® Individual conversation verbs 
- Format 
~- Descriptions 
~- Return codes. 


BASIC CONVERSATION VERBS 


The basic conversation verbs used by AIF are system-provided 
macrocalls. These verbs have a list of arguments that can be 
specified by the programmer or accepted in their existing form. 
AIF verbs follow the conventions for Assembly language, which are 
described in detail in the ONE PLUS Assembly Language (MAP) 
Reference manual (HE38). The verb can have an optional label. 

If no label is used, at least one blank space must precede the 
verb. 
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When AIF iS activated, it defines the resources to be made 
available to the session while that conversation is active. AIF 
allocates a session for a conversation from a group of available 
LU sessions. AIF can either start a session to the host system 
at initiation or it can wait for an application to request to 
allocate a conversation. The time of session initiation is a 
configuration option. 


An application requests to allocate a conversation with a 
remote transaction program by executing the S$SALLO verb. AIF 
looks for an available session to allocate for that 
conversation. If no sesSion is immediately available, the 
application can specify whether control should be returned to the 
program. The conversation uses a session for only the time it 
takes to execute the verb. After the verb is executed, the 
conversation retains its resources until a deallocate verb is 
issued or a deallocate confirmation is received from the host 
application. 


An application gains access to a host-initiated conversation 
by executing a SSATCH verb. When an ATTACH command is received 
from the host, AIF loads the transaction program by spawning a 
group with the attached application as the lead task, and sends a 
response to the host that the program is attached. The DPS 6 
PLUS programs must issue a SSATCH verb before Baby other verbs are 
issued. : | 


User-selected items are known as arguments. These arguments 
are positional within the verb--the order of positional arguments 
indicates the variables to which data is applied. Thus, the 
order of your arguments must be the same as the order of the 
positional arguments within the verb. 


The following rules govern the use of positional arguments: 
@® Omitted arguments that precede an included argument must 
be indicated by the presence of a delimiting comma for 

each omission. 

@ One or more spaces must separate the verb name from its 
arguments, with a comma between each argument. (The 
horizontal tab character is equivalent to a space.) 


@e A semicolon at the end of a line indicates that the next 
line is a continuation line. 


In the following example, the first argument has been 
omitted; its position has been held by a delimiting comma. 
Spaces separate the verb name from its arguments. 


SSALLO ,'AIFNODE1','LU104',=Z'20FOFOFO' ,AVAIL, CONFIRM 
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The arguments for these conversation verbs are found in the 
verb parameter block (VPB). A VPB must be provided for each 
verb. These fields can be altered either during initialization 
or by including the appropriate arguments in the verb itself. 


At the completion of each verb, when control is returned to 
the application, a return code is placed in register SRl. The 
return code can also be found in VP_RCD. This return code 
indicates whether a verb has been completed error free. The 
application should check this return code after each verb to 
verify the return status of the verb. Additional information, if 
desired, can be found in the output control word (VP_OCT), and 
Other output parameters as defined for individual session calls. 


PROGRAMMING CONSIDERATIONS 


Many of the programs that use AIF conversation verbs are 
written in Assembly language. These applications may be 
reentrant and may not require more than one occurrence of a given 
verb. 


Special considerations that the programmer must bear in mind 
fall into five categories, which are discussed in this section: 


Getting Started 

Creating a verb parameter block 
Conversation state 

Host initiated sessions 
Checking the return code. 


Getting Started 


When using AIF verbs in an Assembly language program, 
remember the following steps: | 


1. In order to use the verbs and utility macros included 
with AIF, you must first make them available to your 
program. When beginning your program, include the 
following statement: 


LIBM *>>LDD>MACROS>MAC_USER' 


2. Then issue the macrocalls SSVPB and SSAIRC to define the 
VPBB and return codes in memory. 


3. You must also set aside a workspace with room for the 


stack, the VPB, and your send/receive buffer, as in the 
following example: 
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* 


* WORK LOCATIONS: STACK, VPB, & SEND/RECEIVE BUFFER 
5 | | 


WKSP EQU 0 BEGINNING OF WORKSPACE 
MYSTACK EQU WKSP+50 REGISTER STACK 

CNTLWD EQU MYSTACK — FOR PROGRAM CONTROL 
MYVPB EQU CNTLWD+1 BEGINNING OF VPB 
BUFFER EQU) MYVPB+VP_SIZ SEND/RECEIVE BUFFER 
BUF SZ EQU 2000 BUFFER SIZE 

WKSPS2 EQU BUFFER+BUF SZ WORKSPACE SIZE 


Verb Parameter Block 


Communication between the application program and AIF is 
through the application-provided VPB. The programmer should note 
that the same VPB is used each time a particular conversation is 
referenced until that conversation is deallocated. If a program 
is to run multiple conversations, you must supply @€ separate VPB 
for each conversation. 


When the application provides parameters with a given verb, 
the macrocode updates the appropriate VPB fields before executing 
an AIF monitor call. If any of the fields have been changed, the 
new values are in the VPB when you reexamine it. 


The first parameter of each verb is the location of the VPB, 
with the exception of SSWAIT. If not specified as the first 
parameter of the verb, this pointer must be in register S$B4 
Allowable formats for this parameter and all address pointers are 
the same as found in the "Addressing Parameters" section of the 


System Programmer! Ss Guide, Vol. 2. 


Where a value rather than an address is provided ina 
parameter, allowable formats are: 


1. (*)$B1(.$R) 


2. LABEL 

3 @ =SRl] 

4. =literal 
5% ! LABEL 


Conversation verb users must provide a separate VPB for each 
conversation. The programmer can provide the parameters for the 
verbs by moving the parameters to the VPB before issuing the verb 
(Example 1) or when issuing the verb (Example 2). 


The following examples show both methods of creating a VPB 


for the SSATCH verb. Which convention you choose to follow 
depends upon the requirements of your program. 
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Example l: 


The following example shows the parameters in the VPB being 
loaded before issuing the verb. Offsets to the VPB are 
provided in the displacement macro SSVPB. (Refer to the VPB 
template in Appendix I for appropriate offsets.) 


NODENM DC 'AIF505 ' 
STD NM DC ‘BB! 
SLV_VL DC 0 


LDB S$B4, SB6.VPB Load VPB address to S$B4 

LDI $B6.NODENM Get first 4 bytes of nodename 

SDI $B4.VP_NOD Store first 4 bytes of 
nodename in VPB 

LDI $B6.NODENM+2 Get second 4 bytes of nodename 

SDI $B4.VP_NOD+2 Store second 4 bytes of 


nodename in VPB 
LDR $R2,$B6.STD NM Get STD name 
STR $R2,$B4.VP_STD Store STD name 
LDR §$R2,$B6.SLV_VL Set sync level to none 
STR $R2,$B4.VP_SLV Store the sync level 


SSATCH 


Example 2: 


The following example shows the SSALLO verb with the 
parameters specified within the macrocall. 


This sequence causes the equivalent of the following to be 
issued: 


SSATCH ,'AIF505','BB' ,NONE 
Conversation States 


The subset of verbs that a program can issue at a given time 
is determined by the state of the conversation at that time. For 
example, if a conversation is in receive state, it cannot issue a 
send verb without first issuing a verb to change the conversation 
to send state. The program must be aware of the state of the 
conversation, which can be found in the VP_CST field of the VPB. 
Executing many of the basic conversation verbs causes the 
conversation to change its state. 


Table 4-1 lists the converSation states and their 
definition. Table 4-2 shows what verbs a conversation can issue 
from each state. The description of each verb includes the state 
of the conversation at the end of execution. 
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Table 4-1. Conversation States 


The state in which the program can allocate a 
conversation. 


| The state in which the program can send data 
Or request confirmation. 


| The state in which the program can request 
confirmation or flush the LU's send buffer to 
{ prepare to change states. 


Receive | The state in which the program can receive 
: data or confirmation information. 


Confirm | The state in which the program can send a 
confirmation reply. 


Table 4-2. Conversation States From Which Verbs Can Be Issued 


Conversation State 


| Reset | Send | Deter | Receive | confirm — 
X | 


SSALLO 
SSATCH 
SSCONF 
SSCNFD 


SSDEAL flush 
SSDEAL sync level 
SSDEAL abend | 


SSFLSH 
| SSPONR 
SSPTOR 
SSRAW 


SSRTOS 
SSSDAT 
| SSSERR 
SSWAIT 
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Host-Initiated Conversations 


AIF supports host-initiated conversations. The program name, 
node name, STD name, and base level are provided to the 
application program by AIF via the standard operating system 
parameter list. Refer to the System Programmer's Guide, Vol. 2. 
When the application program begins execution, it must execute a 
SSATCH verb as the first conversation verb, providing the STD 
name and the node name for the LU to be used. The node name and 
the STD name provided with the SSATCH verb must be the same as 
the parameters passed by AIF. 


After the S$SATCH verb is executed, the application is in 
receive state. The SSATCH verb allows AIF access to a 
host-initiated conversation. AIF associates the first 
unsolicited bind (host-initiated session request) to the first 
SSATCH session call from the task group that AIF spawned. 


The application can issue multiple SSATCHs to check for 
additional host-initiated sessions intended for this 
application. For an application to accept more than one 
conversation, all LUsS that can receive binds for that application 
must be reserved LUS. Each of these LUS must have the same 
group id specified in the LU entry in the configuration file. 


NOTE 


In order to execute a START _UP.EC instead of an 
attached program, you must create an attach 
program table entry with a dummy name (eg., 

ATTACH PROG=ABC), specifying the appropriate spawn 
group parameters, and include an ALIAS for ABC 
(eg., ALIAS=>>SYSLIB2>EC?EXECL) to execute the 


START_UP.EC specified in the home directory. 
Refer to SNAG Network Configuration for further 
information. 

Checking the Return Code 


After a session call is executed, AIF returns a status code 
known as the return code to the Verb Parameter Block (VPB) to 
indicate how the call was completed. The application should 
examine this return code at the completion of each verb to 
determine if the call has been completed error free. 


The return code has 16 bits and is placed in register SRl by 


AIF before control is returned to the application program. The 
value of the return code can also be found in VP_RCD. 
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Bits 0 through 4 have special meaning and represent general 
AIF return codes that could occur for any session call. If the 
bit is on, then the return code is set. These bits nour be 
can examine the remaining bits. “The: following eee are “provided 
in the SSAIVR macrocall for checking each of the first five bits 
as follows. 


Bit 0 VRABND 


The conversation has abended or deallocated. An SOPR 
command has been entered that caused the conversation to 
abend, or the conversation was deallocated by the remote 
program. The specific reason for this termination can be 
found in the bits 5 through 15 of the return code or in 
VP ABT. 


Bit l VRSTOP 


An SOPR STOP command has been received that causes the 
conversation to be deallocated when the specified time has 
elapsed. If no time is entered, the conversation is 
deallocated immediately. During this time the application 
can continue to process, but should normally terminate. 


The time found in the TIME argument (VPB.VP_TIM) is the 
wall clock time in standard 48-bit format at which the 
session terminates. 


Bit 2 VRRINT 


This bit is reserved and should not be used by the 
application. 


Bit 3 VRSCNL 


The verb has been cancelled; it is not processed. If the 
application desires the order to be processed, the verb 
must be reexecuted. The specific reason for which the 
call has been cancelled can be found in the bits 5 through 
15 of the return code. 


Bit 4 VRSCMP 
The service request (verb) has been completed. 
A return code can indicate more than one condition occurring 
at the same time. For example, it can indicate both a 


deallocation and a completed call, or an SOPR STOP anda 
completed call. 
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The masks VRABND, VRSTOP, VRRINT, VRSCNL, and VRSCMP are 
provided for your convenience in checking bits 0 through 4. 
After you have checked these bits, null them out and examine bits 
5 through 15. If you choose to null these bits by using VRMASK, 
which is provided in the software (VRMASEK= O7FF), use the 
following statement: 


AND $R1,=VRMASK 


Bits 5 through 15 contain the return code for a completed or 
cancelled call. One way of doing this part of the return code is 
to issue a "compare" instruction as follows: 


CMR SR1,=VROKAY (VROKAY = 0000) 
BE CONT 1 


If the return code contains an "okay" message, branch to the 
next segment of the program. If the return code contains an 
error condition, you might decide to record it to an error-out 
file, branch to another segment of the program, or shut down 
completely. 


Appendix F contains a complete list of return codes. These 
labels and their hexadecimal values can be found in the macro 
SSAIRC (AIF Return Codes). 

INDIVIDUAL VERB FORMATS 
Table 4-3 lists the basic conversation verbs that are 


supported by AIF. These verbs are described in detail on the 
following pages. | 
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Table 4-3. AIF LU Type 6.2 Verbs 


SSALLO 
SSATCH 
-$SCONF 
SSCNFD 
SSDEAL 
SSFLSH 
SSPONR 
SSPTOR 


SSRAW 


| SSRTOS 


SSSDAT 


SSSERR 


SSWAIT 


SSACEB 


SSEBAC — 


Description 


Allocate verb 
Attached verb 


Confirm verb 


| Confirmed verb 


| Deallocate verb 


Flush verb 
Post on Receipt verb 
Prepare to Receive verb 


Receive and Wait verb 


| Request to Send verb 


Send Data verb 

Send error verb. 

Wait verb 

Converts ASCII to EBCDIC 


Converts EBCDIC to ASCII 
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$SALLO 


SSALLO - Allocate Verb 


The SSALLO verb is used to allocate a conversation between a 
local program and a remote program. 


FORMAT : 
[label] $SALLO [vpb address] Pl: SB4 
[,node name] P2: VP_NOD 
[,remote lu name] P3: VP_RLN 
[,trans program name] P4: VP_TPN&VP_TPL 
[,std name] P5: VP_STD 
[,return control] P6: VP_ICT.VBRCTL 
[,synce level] P7: VP_SLV 


ARGUMENTS: 
vpb address 


This parameter contains a pointer to the address of the 
VPB to be used for this conversation. If not declared, 
the address is assumed to be in register $B4. 


node name (VP_NOD) 


This parameter identifies the AIF node to which the 
application is directing this verb. This field contains 
eight alphanumeric characters. If you are loading the 
VPB yourself, and your node name contains fewer than 
eight characters, this field must be left-justified and 
space-filled. 


remote lu name (VP_RLN) 


The name by which the remote LU is known to this 
application. This field contains eight alphanumeric 
characters. If you are loading the VPB yourself, and the 
remote lu name contains fewer than eight characters, this 
field must be left-justified and space-filled. 


trans program name (VP_TPN + VP_TPL) 
This parameter contains the name of the transaction 
program to be attached to the host. This host program 


becomes the session partner of the program executing this 
SSALLO. 
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SSALLO 


std 


How you enter the transaction program name determines how 
the string is passed to the host. If you enter an ASCII 
string, =A'name', SSALLO translates the string to EBCDIC 
and puts the length of the string in VP_TPL. If you 
enter a hexadecimal string, =Z'hexname', where hexname 
contains an even number of hexadecimal digits, S$SALLO 
puts the length of the string in VP TPL and does not 
translate it. 7 


If you are loading the VPB yourself, clear bit 
VP_TPL.VBTPNT to indicate that you want the transaction 
program name translated, or set this bit to indicate that 
you do not want the TPN translated. Put the length of 
the transaction program name into the right byte of 

VP TPL. 


name (VP_STD) 


The configured session type descriptor (STD) that lists 
the attributes of the conversation to be allocated, as 


defined in the configuration for this node. This field 


consists of two alphanumeric characters. 


return control (VP_ICT.VBRCTL) 


This parameter indicates whether the local LU should 
return control to the local program, in the event that it 
is unable to allocate a conversation. 


The following arguments are valid for this parameter: 


AVAIL - allocates a session for the conversation before 
returning control to the program. If the local LU 
fails to obtain a session for the conversation, an 
allocation error is reported in SSALLO return code. 


IMMED - allocates a session for the conversation if one 
1S immediately available and then returns control to 
the session. | 


- If a session is immediately available, the 
conversation is allocated and control is returned 
with a return code of OKAY. The local LU must be 
the contention winner. 
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SSALLO 


- If a session in not immediately available, the 
conversation is not allocated and control is 
returned with a return code of VRUNSU. 


- If a session is immediately available and an error 
occurs in allocating a conversation, the error is 
reported in the return code for the SSALLO. 


NOTE 


If an LU is configured with the contention winner 
aS non-negotiable, the LU must be both reserved 
and preestablished to be available for allocation 
with a return control of IMMED. 


sync level (VP_SLV) 


This parameter indicates how the local and remote 
programs perform confirmation processing on this 
conversation. The following arguments are valid for this 
parameter: 


@® NONE - do not perform confirmation processing on this 
conversation. Programs that specify NONE do not issue 
any verbs or recognize return Pera te related to : 
synchronization. 


@ CONFIRM =~ performs confirmation processing only on 
this conversation. Programs that specify CONFIRM 
issue verbs and recognize returned confirmation 
parameters, but do not recognize return parameters 
related to synchronization. 


DESCRIPTION: 


The $SALLO verb first allocates a session between a local LU 
and a remote LU, then allocates a conversation over that 
session, between a local program and a remote program, and 
puts the conversation in send state. Once you have allocated 
a conversation over a sesSion, that session becomes available 
to other conversations until this conversation is 
deallocated. 


The SSALLO verb is used to allocate conversations for either 
transaction programs or service component programs. The 
parameters issued with this verb identify the partners in the 
conversation and provide bind information about the 
conversation. 
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SSALLO 


The SSALLO verb must be issued before any other verbs that 
refer to the specified conversation. At the completion of 
the SSALLO verb, the conversation enters send state. 


RETURN CODES: 


The application should check the return code after each 
execution of a verb. Bits 0 through 4 have special meaning 
and represent general AIF return codes that could occur for 
any verb. These bits should be examined individually, then 
"masked out" so that the application can examine bits 5 
through 15. 


In addition to the general return codes, the following values 
are possible. 


Value Label Description 


0000 #VROKAY OK 

0040 #VRINOD Invalid node name | 

0042 #VRITPN Invalid transaction program name (null 
: - value) | 

0049 VRSLNS Synchronization level not supported by LU 

004B VRIRTC Invalid return control 

0096 VRNNAC Node not yet active 

0097 VRNLAC No active LU for session 

0098 VRNOAV No LU available for session 

0099 VRISTD Invalid STD name 

OO9A VRILUT Invalid LU type in STD 


In addition, if you specified a return control of IMMED, the 
following return code is possible. 


Value Label Description 
0001 VRUNSU Unsuccessful 
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$SATCH 


SSATCH - Attached Verb 


The 


SSATCH verb is used by an attached program to gain access 


to the conversation. 


FORMAT: 
[label] SSATCH [vpb address] Pl: SB4 
[,node name] P2: VP_NOD 
[,std name] P3: VP_STD 
[,synce level] P4: VP_SLV 
ARGUMENTS : 
vpb address 


This parameter contains a pointer to the address of the 
VPB to be used for this conversation. If not declared, 
the address is assumed to be in register SB4. 


node name (VP_NOD) 


std 


This parameter identifies the AIF node to which the 
application is directing this verb. This field contains 
€ight alphanumeric characters. If you are loading the 
VPB yourself, and your node name contains fewer than 
eight characters, this field must be left-justified and 
space-filled. | 


name (VP_STD) 
The configured session type descriptor (STD) which lists 


the attributes of the conversation to be allocated. This 
field consists of two alphanumeric characters. 


sync level (VP_SLV) 


This parameter indicates how the local and remote 
programs perform confirmation processing on this 
conversation. 


The following arguments are valid for this parameter: 
@ NONE —- do not perform confirmation processing on this 
conversation. Programs that specify NONE do not issue 


any verbs or recognize return parameters related to 
synchronization. 
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SSATCH 


o CONFIRM - performs confirmation processing only on 
this conversation. Programs that specify CONFIRM 
issue verbs and recognize returned confirmation 
parameters, but do not recognize return parameters 
related to synchronization. 


DESCRIPTION: 


The SSATCH verb causes the program to be connected to a 
host-initiated conversation. When the host issues an ATTACH 
command to allocate a conversation, AIF loads the DPS 6 
transaction by spawning a group with the program as the lead 
task. When the program is loaded, it must issue the SSATCH 
verb to tell the host that the transaction program has been. 
attached to the session, and the node name and STD name with 
which it is associated. 


If the application is intended for host-initiated sessions, 

the SSATCH should be the first verb executed. After the 
SSATCH verb is executed, the conversation enters receive 
State. 


RETURN CODES: 


The application should check the return code after each 
execution of a verb. Bits 0 through 4 have special meaning 
and represent general AIF return codes that could occur for 
any verb. These bits should be examined individually, then 
"masked out" so that the application can examine bits 5 
through 15. 


In addition to the general return codes, the following values 
are possible. 


Value Label Description 


0000 VROKAY OK 

0040 VRINOD Invalid node name 

0099 VRISTD Invalid STD name 

009B VRNOAT No LU attached by Remote TP 

0O0DO VRAESP Synchronization level not supported by 
LU 
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S$SCONF 


SSCONF - Confirm Verb 


The SSCONF verb sends a confirmation request to the coors 
program. 


FORMAT: 

[label] SSCONF [vpb address] Pl: $B4 
ARGUMENTS: 
vpb address 


This parameter contains a pointer to the address of the 
VPB to be used for this conversation. If not declared, 
the address is assumed to be in register SB4. 


DESCRIPTION: 


The SSCONF verb requests that the remote program send an 
acknowledgment, and waits for a response. The SSCONF verb is 
used in confirmation processing, and in verifying that the 
conversation has been allocated or data has been received. 
$SCONF is not used if the conversation has been allocated 
with a synchronization level of NONE. This verb causes the 
LU to flush its send buffers. 


When the SSCONF verb is issued in defer state following a 
SSPTOR, the conversation enters receive state. When the 
SSCONF verb is issued in defer state following SSDEAL, the 
conversation enters reset state. When the SSCONF verb is 
issued in send state, the state does not change. 


RETURN CODES: 


The application should check the return code after each 
execution of a verb. Bits 0 through 4 have special meaning 
and represent general AIF return codes that could occur for 
any verb. These bits should be examined individually, then 
"masked out" so that the epPrecetson can examine bits 5 
through 15. 
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SSCONF 


In addition to the general return codes, the following values 
are possible for bits 5 through 15. 


Value Label Description 
0000 VROKAY OK 
0047 VRVBNS Verb not supported (conversation was 
allocated with a sync level of none) 

0041 VRIRID Invalid resource ID 
0011 VRNSDF Not in send/defer state 
0018 VRLRNF Logical record not finished yet 
OOF1 VRDAPG Remote deallocation--ABEND program 
O0F2 VRDASV Remote deallocation--ABEND service 
00F3 VRDATM Remote deallocation--ABEND timer 
0004 VRPEPR Program error--purging | 
0007 VRSEPR Service program error, purging 
0103 VRPGER Resource failure, no retry 

~ 0100 VRUNBI Session unbound by host unexpectedly 
0101 VRSSHU Session shutdown by host orderly 
0102 VRURTO You are timed out by SOPR command 
~—0310 VRADLU ACTLU/DACTLU received 
0711 VRLKFL Link failure 
0712 VRADPU ACTPU/DACTPU received 
0713 VRACSA SA (SOPR) "ABORT' AIF node 
0714 VRSABT | 


SS abort AIF group 


OUTPUT CONTROL WORD 


The request to send received field in the output control word 
(VP_OCT.VBRRTS) indicates whether the remote program has 
issued a request to send notification, requesting the local 
program to enter receive state and placing itself in send 
state. If VP_OCT.VBRRTS is set, then this condition is true. 
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SSCNFD 


SSCNFD - Confirmed Verb 


The SSCONFD verb sends a confirmation response to the remote 
program. 


FORMAT: 

[label] SSCNFD [vpb address] Pl: $B4 
ARGUMENTS: 
vpb address 


This parameter contains a pointer to the address of the 
VPB to be used for this conversation. If not declared, 
the address is assumed to be in register S$B4. 


DESCRIPTION: 


The S$SCNFD verb sends a confirmation to a remote program, 
always in response to a request for confirmation. The SSCNFD 
verb is used in confirmation procesSing and error detection. 
SSCNFD is not used if the conversation has been allocated 
with a synchronization level of NONE. 


The what-received parameter of the previous receive and wait 
verb determines what state the conversation enters after the 
SSCNFD is executed. If the SSRAW returned a confirm 
indicator, the converSation enters receive state. If the 
SSRAW indicated confirm-send, the conversation enters send 
state. If the SSRAW indicated confirm-deallocate, the 
conversation enters reset state. 


RETURN CODES: 


' The application should check the return code after each 
execution of a verb. Bits 0 through 4 have special meaning 
and represent general AIF return codes that could occur for 
any verb. These bits should be examined individually, then 
"masked out" so that the application can examine bits 5 
through 15. 
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SSCNFD 


In addition to the general return codes, the following values 
are possible for bits 5 through 15: 


Value Label Description 


0000 VROKAY OK 

0047 VRVBNS Verb not supported (conversation was 
allocated with a sync ievel of none) 

0041  ##VRIRID Invalid resource ID 

0018 VRNCNF Not in confirm state 
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$SDEAL 


SSDEAL —- Deallocate Verb 


the 


The SSDEAL verb deallocates the specified conversation from 
transaction program. 


FORMAT: 
[label] $SDEAL [vpb address] Pl: SB4 
[,type] P2: VP_TYP 
[,LOG|NO_LOG] P3: VP_ICT.VBLGDA 
[,log data buffer] P4: VP_BUF 
[,log data length] P5: VP_DLG 
ARGUMENTS: 


vpb address 


This parameter contains a pointer to the address of the 
VPB to be used for this conversation. If not declared, 
the address is assumed to be in register S$B4. 


type (VP_TYP) 


This parameter specifies whether the deallocation is to 
be completed as part of this verb or deferred until 
another verb is issued or a certain condition is met. 


The following arguments are valid for this parameter: 


@ SYNC _L - perform deallocation according to the sync 
level specified when the conversation was allocated: 


- If sync level = NONE, SSDEAL flushes the local LU's 
send buffer and deallocates normally. 


- If sync level = CONFIRM, SSDEAL sends a confirma- 
tion request to the remote LU and, if the return 
code is OK, deallocates the conversation normally. 
If the return code is UNSUCCESSFUL, SSDEAL returns 
the conversation to itS previous state. 


@ FLUSH - flushes the local LU's send buffer and 
deallocates the conversation normally. 


The following type arguments are for error handling, and 

are application-dependent. 

@ PROG AB - flushes the local LU's send buffer when the 
conversation is in send or defer state and deallocates 
the conversation abnormally. 
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{LO 


log 


log 


DES 
The 
the 


ver 
of 


Aft 
res 


@ sSVC_AB - flushes the local LU's send buffer when the 
conversation is in send or defer state and deallocates 
the conversation abnormally. 


e TIM_AB - flushes the local LU's send buffer when the 
conversation is in send or defer state and deallocates 
the conversation abnormally. 


NOTE 


If ABEND deallocation occurs when the conversation 
is in send state, logical record truncation can 
occur. When the conversation is in receive 

State, data purging can occur. 


G|NO LOG} 


This parameter indicates whether or not the system error 
log is transferred to the transaction when the 
conversation is deallocated in an ABEND situation. 


data buffer 


This parameter is a pointer to the product specific error 
data that is kept in the system error logs of the local 
and remote LUs. This parameter is used only with an 
ABEND deallocation type. 


data length > 
This parameter specifies the length of the log data 


buffer in bytes. The maximum allowable length of this 
buffer is 32,767 bytes. 


CRIPTION: 


SSDEAL verb deallocates the specified conversation from 
transaction program. The parameters issued with this 
b identify the conversation to be deallocated and the type 
deallocation to be performed. 


er the SSDEAL verb is executed, the conversation enters 
et state. 


NOTE 


AIF does not support a state that corresponds to 
the AIF deallocate state. If you receive a 
deallocate-confirm message after a SSCNFD verb, 
the conversation has been deallocated and its 
resources returned to the system. The 
conversation is then in reset state. 
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SSDEAL 


RETURN CODES: 


The application should check the return code after each 
execution of a verb. Bits 0 through 4 have special meaning 
and represent general AIF return codes that could occur for 
any verb. These bits should be examined individually, then 
"masked out" so that the application can examine bits 5 
through 15. 


In addition to the general return codes, the following values 
are possible for any execution of the SSDEAL. 


Value Label Description 

0000 VROKAY OK 

0010 VRNSND Not in send state 

0018 VRLRNF Logical record not finished yet 
004C VRITYP Invalid type specified 


If you executed the SSDEAL with a type of ABEND, the 
following return codes are possible. 


Value Label Description 
OO1A VRPDEA Improper state 
004C VRITYP Invalid type specified 


If you executed the $SDEAL with a type of SYNC_L and the 
conversation was allocated with synchronization level of 
CONFIRM, the following return codes are possible. 


Value Label Description 

0047 VRVBNS Verb not supported (conversation was 
allocated with a sync level of none) 

004C VRITYP Invalid type specified 

0011 VRNSDF Not in send/defer state 

0018 VRLRNF Logical record not finished yet 

00B0 VRAETN TPN not recognized 

00CO VRAEPI PIP not allowed 

00C1l VRAEIP PIP not specified correctly 

00C2 VRAESI Security not valid 

00C3 VRAECM Conversation type mismatch 

00D0 VRAESP Sync level not supported by program 

00D1 VRAERP Reconnect level not supported by program 

00D2 VRAENR TP not available--no retry 

00D3 VRAETR TP not available--retry 
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00E0 
OOF] 
0O0F2 


—6«O0F3 


0007 


VRAEAN 


VRDAPG © 


VRDASV 
VRDATM 
VRSEPR 


ACC not valid 


Remote deallocation--ABEND program 


Remote deallocation--ABEND service 
Remote deallocation--ABEND timer 
Service program error, purging 
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SSFLSH - Flush Verb 
The SSFLSH verb flushes the local LU's send buffer. 
FORMAT : 
[label] SSFLSH [vpb address] Pl: S$B4 
ARGUMENTS : 
vpb address 


This parameter contains a pointer to the address of the 
VPB to be used for this conversation. If not declared, 
the address is assumed to be in register SB4. 


DESCRIPTION: 


The SSFLSH verb flushes the local LU‘s send buffer. Any 
information that was in the buffer is sent to the remote 
LU. The SSFLSH verb is useful for transferring incomplete 
buffers of data to the remote LU, thus avoiding a delay in 
processing. 


If you execute a SSFLSH when the conversation is in defer 
state following a SSPTOR, the conversation enters receive 
State. If you execute a S$SFLSH when the conversation is in 
send state, the state of the conversation does not change. 


RETURN CODES: 


The application should check the return code after each 
execution of a verb. Bits 0 through 4 have special meaning 
and represent general AIF return codes .that could occur for 
any verb. These bits should be examined individually, then 
"masked out" so that the application can examine bits 5 
through 15. 
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In addition to the general return codes, the following values 
are possible. 


Description — 


Value Label 

0000 VROKAY OK | 

0041 VRIRID Invalid resource ID 

0011 VRNSDF Not in send/defer state 

0103 VRPGER Resource failure, no retry 

0100 VRUNBI Session unbound by host unexpectedly 
0101 VRSSHU Session shutdown by host orderly 
0102 VRURTO You are timed out by SOPR command 
0310 VRADLU ACTLU/DACTLU received 

0711 VRLKFL Link failure 

0712 VRADPU ACTPU/DACTPU received 

0713 VRACSA SA (SOPR) 'ABORT' AIF node 
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SSPONR - Post on Receipt Verb 


The S$SPONR verb causes the LU to signal the conversation when 
there is information to receive. 


FORMAT: 
[label] SSPONR [vpb address] Pl: S$B4 
[pf211] P2: VP_ICT.VBFILL 
[length] P3: VP _DLG 


ARGUMENTS : 
vpb address 


This parameter contains a pointer to the address of the 
VPB to be used for this conversation. If not declared, 
the address is assumed to be in register $B4. 


fill 


This parameter specifies when posting should occur in 
terms of the length specified in the next parameter. 


The following arguments are valid for this parameter. 


@® BUFFER - data is buffered into units of the length 
specified in the next parameter. Posting occurs when 
the buffer is full or the end of data is indicated. 


@e LL - posting occurs when a complete or truncated 
logical record is received, or when part of a logical 
record is received that is as long as or longer than 
the length specified in the next parameter. 


length 


This parameter specifies the maximum length of the 
receive buffer. 


DESCRIPTION: 


The SSPONR verb causes the LU to signal the conversation when 
there is information to receive. The information can be 
data, status information, or a request for confirmation. The 
SSPONR can be uSed with the S$SWAIT verb or the SSRAW to allow 
you to continue with other program processSing while waiting 
for data from the host. 
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Executing the SSPONR verb does not cause the state of the 
conversation to change. In order to execute the SSPONR, you 
must be in receive state. If you are not in receive state, 
you must first issue the SSPTOR verb. | 


RETURN CODES: 


The application should check the return code after each 
execution of a verb. Bits 0 through 4 have special meaning 
and represent general AIF return codes that could occur for 
any verb. These bits should be examined individually, then 
"masked out" so that the application can examine bits 5 
through 15. | 


In addition to the general return codes, the following values 
are possible. 


Value Label Description 


0000 VROKAY OK 
0041 VRIRID Invalid resource ID 
0016 VRNRCV Not in receive state 


If the return code indicates OKAY and the output control word 
indicates that the conversation has been posted, then posting 
has occurred and the LU has information that the program can 
receive. The program has the option of issuing a SSRAW at 
this point or it can ignore this posting by issuing a SSWAIT, 
and receive this data at a later time. 


OUTPUT CONTROL WORD 


The conversation posted field in the output control word 
(VP_OCT.VBPOST) indicates whether the conversation has been 
posted. If this bit is true, the conversation is posted and 
SSRAW can be used to receive data or information. If this 
bit is false, posting is active for this conversation and 
SSWAIT can be used to wait for posting to occur. 
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SSPTOR -— Prepare to Receive Verb 


The SSPTOR verb changes the state of the specified 
conversation from send to receive. 


FORMAT : 
[label] $SPTOR [vpb address] Pl: S$B4 
[, type] P2: VP_TYP 
[,locks] P3: VP_ICT.VBLOCK 


ARGUMENTS: 
vpb address 


This parameter contains a pointer to the address of the 
VPB to be used for this conversation. If not declared, 
the address is assumed to be in register SB4. 


type 


This parameter specifies whether the prepare-to-receive 
is to be completed as part of this verb or deferred until 


The following arguments are valid for this parameter: 


@ SYNCLVL - perform the prepare-to-receive according to 
the synchronization level specified when the 
conversation was allocated: 


- If sync level = NONE, S$SPTOR flushes the local LU'‘s 
send buffer and enters the receive state. 


- If sync level = CONFIRM, SSPTOR sends a 
confirmation request to the remote LU and, if the 
return code is VROKAY, enters the receive state. 
If the return code is VRUNSU, SSPTOR returns the 
conversation to its previous state. 


@e FLUSH - flushes the local LU's send buffer and enters 
the receive state. 
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locks 


This parameter specifies whether the local program must 
wait for a reply when a request for confirmation is 
executed following a SSPTOR. This parameter is relevant 
only if the conversation was allocated with a sync level 
of CONFIRM, and the S$SPTOR is executed with a type of 
SYNCLVL. 


The following arguments are valid for this parameter. 


@ SHORT - Control is returned to the local program when 
an acknowledgment is received. 


e LONG - control is returned to the local program when 
data is received from the remote program following an 
acknowledgment. 


DESCRIPTION: 


The SSPOTR verb changes the state of the conversation from 
send to receive. The parameters issued with this verb 
identify the conversation whose state is being changed, the 

type of prepare-to-receive to be performed, and when control 

is to be returned to the local program after the receive. 


After the SSPTOR is executed, the conversation enters receive 
state. If the SSPTOR is unsuccessful, the conversation 
remains in send state. 


RETURN CODES: 


The application should check the return code after each 
execution of a verb. Bits 0 through 4 have special meaning 
and represent general AIF return codes that could occur for 
any verb. These bits should be examined individually, then 
"masked out" so that the application can examine bits 5 
through 15. 


The value you specify for type determines what return codes 
are possible. In addition to the general return codes, the 
following values are possible for all types. 

Value Label Description 


0000 VROKAY OK 
004C VRITYP Invalid type specified 
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In addition, If you executed the SSPTOR with a type of SNCLVL 
and the conversation was allocated with synchronization level 
of CONFIRM, the following return codes are possible. 


Value Label Description 

0007 VRSEPR Service program error, purging 

0011 VRNSND Not in send state 

0018 VRLRNF Logical record not finished yet 

0041 VRIRID Invalid resource ID 

0047 VRVBNS Verb not supported (conversation was 
allocated with a sync level of none) 

OOBO  -: VRAETN TPN not recognized 

00CO0 VRAEPI PIP not allowed 

00cl VRAEIP PIP not specified correctly 

00C2 VRAESI Security not valid 

00C3 VRAECM Conversation type mismatch 

0OD0 VRAESP Sync level not supported by program 

OOD1 VRAERP Reconnect level not supported by program 

00D2 VRAENR TP not available--no retry 

00OD3 VRAETR TP not avalilable--retry 

OOEO VRAEAN ACC not valid 

OOF1 VRDAPG Remote deallocation--ABEND program 

OOF 2 VRDASV Remote deallocation--ABEND service 

OOF3 VRDATM Remote deallocation--ABEND timer 

0004 VRPEPR Program error-~purging 

0103 VRPGER Resource failure, no retry © 

0100 VRUNBI Session unbound by host unexpectedly 

0101 VRSSHU Session shutdown by host orderly 

0102 VRURTO You are timed out by SOPR command 

0310 VRADLU ACTLU/DACTLU received 

0711 VRLKFL Link failure 

0712 VRADPU ACTPU/DACTPU received | 

0713 VRACSA SA (SOPR) ‘ABORT’ AIF node 

0714 VRSABT SS abort AIF group 
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SSRAW - Receive and Wait Verb 


The SSRAW verb causes the LU to wait for data and receive it. 


FORMAT : 
[label] $SRAW  [vpb address] Pl: S$B4 
[,data buffer] P2: VP_BUF 
[,data buffer length] P3: VP_DLG 
Gace P4: VP_ICT.VBFILL 
ARGUMENTS: 


vpb address 


This parameter contains a pointer to the address of the 
VPB to be used for this conversation. If not declared, 
the address is assumed to be in register $B4. 


data buffer 


This parameter identifies the buffer set up to receive 
the data from the remote program. 


data buffer length 


This parameter specifies the maximum length of data that 
the program can receive. | 


fill 


This parameter specifies whether data is received in 
logical record format or by buffers. 


The following arguments are valid for this parameter. 


e BUFFER - data is buffered into units of the length 
specified in the data buffer length parameter. When 
the buffer is full or the end of data is indicated, it 
is transmitted to the local program. 


e LL —- Each complete or truncated logical record is 
transmitted to the local program. when a logical 
record is received that is as long as or longer than 
the data buffer length, the logical record is broken 
up into units of that length. 
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DESCRIPTION: 


The SSRAW verb causes the LU to wait for data to arrive at 
the specified conversation and receive it. The information 
can be data, status information, or a request for 
confirmation. If there is data in the receive queue when 
this verb is executed, the waiting time is eliminated. After 
SSRAW is executed, control is returned to the local program 
and the type of information received is indicated. 


If the conversation is in send state when this verb is 
issued, the local LU flushes its send buffer and the 
conversation changes to receive state. A send indicator is 
sent to the remote LU, to notify the remote program that it 
can send data to the local program. 


The value of the WHAT RECEIVED parameter determines the state 
of the conversation after the SSRAW is executed. If 

WHAT RECEIVED indicates DATA, DATA COMPLETE, DATA _INCOMPLETE, 
Or LL_TRUNCATED, the conversation enters (or remains in) 
receive state. If WHAT RECEIVED indicates SEND, the 
conversation enters send state. If WHAT_RECEIVED indicates 
CONFIRM, CONFIRM SEND, or CONFIRM DEALLOCATE, the 
conversation enters confirm state. 


RETURN CODES: 


The application should check the return code after each 
execution of a verb. Bits 0 through 4 have special meaning 
and represent general AIF return codes that could occur for 
any verb. These bits should be examined individually, then 
"masked out" so that the application can examine bits 5 
through 15. 


In addition to the general return codes, the following values 
are possible. 


Value Label Description 


0000 VROKAY OK 

0002 VRPENT Program error, not truncating 
0003 VRPETR Program error, truncating 

0004 VRPEPR Program error--purging 

0014 VRNSOR Not in send/receive state 

0018 VRLRNF Logical record not finished yet 
0041 VRIRID Invalid resource ID 

OOBO VRAETN TPN not recognized 

00C0 VRAEPI PIP not allowed 

00Cl VRAEIP PIP not specified correctly 
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Security not valid 


00C2 VRAESI 

00C3 VRAECM Conversation type mismatch 

00DO VRAESP Sync level not supported by program 
00Dl1 = + VRAERP Reconnect level not supported by program 
00D2 VRAENR TP not available--no retry 

00D3 VRAETR TP not available--retry 

QOE0D VRAEAN ACC not valid 

OOFO VRDANM Deallocate normal 

OOF] VRDAPG Remote deallocation--ABEND program 
00OF2 VRDASV Remote deallocation--ABEND service 
00F3 VRDATM Remote deallocation--ABEND timer 
0006 VRSETR Service error, truncating 

0005 VRSENT Service error, not truncating 

0007 VRSEPR Service error-—purging 

0103 VRPGER Resource failure, no retry 

0100 VRUNBI Session unbound by host unexpectedly 
0101 VRSSHU Session shutdown by host orderly 
0102 VRURTO You are timed out by SOPR command 
0310 VRADLU ACTLU/DACTLU received 

0711 VRLKFL Link failure 

0712 -VRADPU =ACTPU/DACTPU received 

0713 VRACSA SA (SOPR) 'ABORT' AIF node 

0714 VRSABT 


RETURN PARAMETER 


$S abort AIF group 


actual data length (VP_ADL) 


This field contains the length of the received data. The 
actual data length includes the two byte binary field 
that specifies the logical record length and the length 


of the record itself. 


The length can range from 2 to 
7FFF. | 


OUTPUT CONTROL WORD 


The request to send received field in the output control word 
(VP_OCT.VBRRTS) indicates whether the remote program has 
issued a request to send notification, requesting the local 
program to enter receive state and placing itself in send 
state. | 


WHAT RECEIVED 


The WHAT RECEIVED field (VP_WAR) defines what the transaction 
program has received, and should be examined when the return 
code is OKAY. The following values are possible within 

VP WAR: 
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06 


14 


i 


16 
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SEND (VBRSND)--the remote program has entered receive 
state cauSing the local program to enter send state. 
The local program can now issue a SSSDAT. 


CONFIRM (VBRCNF)--the remote program has sent a 
confirmation request to the local program. The local 
program can respond by issuing a SSCNFD or another 
verb, such as a SSSERR. 


CONFIRM DEALLOCATE (VBRCDA)--the remote program has 
issued a deallocate with type SNCLVL and a 
synchronization level of CONFIRM. The local program 
can respond by issuing a SSCNFD or another verb, such 
as a SSSERR. 
CONFIRM SEND (VBRCSN)})=<-the remote program has issued 
a prepare to receive with type SNCLVL and a 
synchronization level of CONFIRM. The local program 
can respond by issuing a SSCNFD or another verb, such 
aS a SSSERR 


@ 


GL TRUNCATED (VBRLLT)--The S$SRAW was issued with the 
LL £ill parameter and the length field is received 
truncated. The program does not receive the length 
Ys 2€ date. 


‘A INCOMPLETE WHEN LENGTH=6 (VBDICO)=--The SSRAW was 
peas geet — ete Of gere and an incomplete 
is oeeaby: received by the program. No 
co the caller. 


DATA AVAILABLE WHEN LENGTH=0 (VBDAT(@}--The SSRAW was 
issued with a LENGTH of zero and a complete logical 
record is being received by the program. No data is 
passed to the caller. 


DATA (VBRDAT)--The SSRAW was issued with the buffer 
fill parameter and data is being received by the 
program. 


DATA COMPLETE (VBRDCP)--The SSRAW was issued with the 
LL fill parameter and a complete logical record, or 
the completion of a logical record, is being received 
by the program. 

DATA INCOMPLETE (VBRDIC)=<--The SSRAW waS issued with 
the LL £ill parameter and an incomplete logical 
record is being received by the program. The program 


must issue one or more additional SSRAWS to receive 
the remainder of the logical record. 
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SSRTOS - Request to Send Verb 


The SSRTOS verb indicates to the remote program that the 
local program is requesting to enter send state. 


FORMAT: 

[label] $SRTOS [vpb address] Pl: S$B4 
ARGUMENTS: 
vpb address 


This parameter contains a pointer to the address of the 
VPB to be used for this conversation. If not declared, 
the address is assumed to be in register SB4. 


DESCRIPTION: 


The SSRTOS verb indicates to the remote program that the 
local program is requesting to enter send state. When the 
local program receives a send indicator in response, the 
conversation changes to send state. 


If a negative response is received, the conversation remains 
in receive state. If a positive response is received with a 
send indicator, the conversation changes to send state. 


RETURN CODES: 


The application should check the return code after each 
execution of a verb. Bits 0 through 4 have special meaning 
and represent general AIF return codes that could occur for 
any verb. These bits should be examined individually, then 
"masked out" so that the application can examine bits 5 
through 15. 


In addition to the general return codes, the following values 
are possible: 


Value Label Description 


0000 VROKAY OK 

0041 VRIRID Invalid resource ID 

0015 VRNRCS Not in receive/confirm state 

0019 VRCSCD In confirm state (received CONFIRM SEND 
Or CONFIRM DEALLOCATE on the preceding 
SSRAW 
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SSSDAT - Send Data Verb 


The S$SSDAT verb sends data to the remote program. 


FORMAT : 
[label] SSSDAT [vpb address] Pl: $B4 
[,data buffer] P2: VP_BUF 
[length] P3: VP_DLG 
ARGUMENTS : 


vpb address 


This parameter contains a pointer to the address of the 
VPB to be used for this conversation. If not declared, 
the address is assumed to be in register SB4. 


data buffer 


This parameter contains a pointer to the local LU's send 
buffer. This buffer contains the data being sent in the 
form of logical records. Each logical record consists of 
a two-byte field specifying the length of the data in 
that logical record, and the logical record itself. A 
buffer can contain any number of complete or partial 
records that fills the buffer. 


length 


This parameter specifies the length of the data in the 
local LU's send buffer. This value is independent of the 
length of data contained in any individual logical record 
and independent of the size of the send buffer. The 
maximum length is 32,876 bytes. 


DESCRIPTION: 


The $SSDAT verb sends data to the remote program. This data 
can be data, status information, or confirmation. The data 
is formatted into logical records, which are buffered before 
being transmitted. A logical record, by definition, can 
range £rom 0002 bytes, including only the LL field, to 7FFF 
bytes, including a two-byte LL field and 32765 bytes of data. 


Executing the $SSDAT does not change the state of the 
conversation. 
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RETURN CODES: 


The application should check the return code after each 


execution of a verb. 


Bits 0 through 4 have special meaning 


and represent general AIF return codes that could occur for 


any verb. 


These bits should be examined individually, then 


"masked out" so that the application can examine bits 5 


through 15. 


In addition to the general return codes, the following values 
are possible: 


Value 


0000 
0004 
0010 
O04A 


0044. 


0018 


OUTPUT CONTROL WORD 


0041 — 


00B0 
00CO0 
00Ccl1 


00C2 
00C3 


00DO 


00D1 


00D2 
00D3 
00EO 
OOF1 


OOF2 


00F3 
0100 
0101 
0102 
0310 
0711 
0712 
0713 
0714 


Label 


VROKAY 
VRPEPR 
VRNSND 
VRIVLL 
VRLNER 
VRLRNF 
VRIRID 
VRAETN 


VRAEPI 


VRAEIP 
VRAESI 
VRAECM 


VRAESP | 


VRAERP 
VRAENR 
VRAETR 
VRAEAN 
VRDAPG 
VRDASV 
VRDATM 
VRUNBI 
VRSSHU 
VRURTO 
VRADLU 
VRLKFL 
VRADPU 
VRACSA 
VRSABT 


Description 


OK 

Program error--purging 

Not in send state 

Invalid logical record length 

Data length errror 

Logical record not finished yet 
Invalid resource ID 

TPN not recognized 

PIP not allowed © 

PIP not specified correctly 
Security not valid 

Conversation type mismatch | 
Syne level not supported by program 
Reconnect level not supported by program 
TP not available--no retry 

TP not available--retry 

ACC not valid 

Remote deallocation--ABEND program 
Remote deallocation--ABEND service 
Remote deallocation--ABEND timer 
Session unbound by host unexpectedly 
Session shutdown by host orderly 
You are timed out by SOPR command 
ACTLU/DACTLU received 

Link failure 

ACTPU/DACTPU received _ 

SA (SOPR) 'ABORT' AIF node 

$S abort AIF group 


The request to send received field in the output control word 
(VP_OCT.VBRRTS) indicates whether the remote program has 
issued a request to send notification, requesting the local 


program to enter receive state and placing itself in send 
state. 


This condition is true when VP_OCT.VBRRTS is set. 
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$SSERR 


The SSSERR verb indicates to the remote program that an error 


has occurred. 
FORMAT: 
[label] S$SSERR [vpb address] 

[,type] 
[,LOG|NO_LOG] 
[,log data buffer] 
[,log data length] 

ARGUMENTS : 


vpb address 


$B4 

VP_TYP 
VP_ICT.VBLGDA 
VP_BUF 
VP_DLG 


This parameter contains a pointer to the address of the 
If not declared, 
the address is assumed to be in register SB4. 


VPB to be used for this conversation. 


type 


This parameter specifies whether the error has occurred 
aS a result of the application or as a result of the LU 
services transaction program, to identify to whom the 


error should be reported. 


The following arguments are valid for this parameter. 


@ PROG ~- The error has occurred at the application 
level. The resulting error code is reported to the 


remote LU. 


@e SVC = The error has occurred at the LU services: level. 


{LOG|NO_ LOG} 


This parameter indicates whether or not the system error 
log is transferred to the transaction. 


log data buffer 


This parameter contains a pointer to the local LU's log 
data buffer. This buffer contains the data being sent to 


the remote LU's log data buffer. 
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log data length 


This parameter specifies the length of the data in the 
local LU's log data buffer. This value excludes the 
logical record length and can be a maximum of 32,763 
bytes. 


DESCRIPTION: 


The SSSERR verb indicates to the remote program that the 

local program has detected an error. The parameters issued 
with this verb identify the conversation on which the error 
has occurred and the type of error which has been detected. 


The local LU iS in send state and the remote LU in receive 
state. 
was issued, the local LU's send buffer is flushed and the 
state of the conversation does not change. 


If the conversation was in send state when this verb 


If the conversation is in receive or confirm state when the 
SSSERR is executed, the conversation enters send state. 


RETURN CODES: 


The application should check the return code after each 


execution of a verb. 


Bits 0 through 4 have special meaning 


and represent general AIF return codes that could occur for 


any verb. 


These bits should be examined individually, then 


"masked out" so that the application can examine bits 5 


through 15. 


The state of the conversation when you issue the SSSERR 


determines what return codes are possible. 


In addition to 


the general return codes, the following values are possible 
after any execution of the SSSERR. 


Value Label Description 

0000 VROKAY OK 3 
0017 VRNSRC Not in send, receive, or confirm state 
0041 VRIRID Invalid resource ID 

0103 VRPGER Resource failure, no retry 

0100 VRUNBI Session unbound by host unexpectedly 
0101 VRSSHU Session shutdown by host orderly 
0102 VRURTO You are timed out by SOPR command 
0310 VRADLU ACTLU/DACTLU received 

0711 VRLKFL Link failure 

0712 VRADPU ACTPU/DACTPU received 

0713 VRACSA SA (SOPR) 'ABORT' AIF node 

0714 VRSABT $S abort AIF group 
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In addition, if the conversation is in send state when you 
execute the SSSERR, the following return codes are possible. 


Value Label Description 

0OBO VRAETN TPN not recognized 

00CO VRAEPI PIP not allowed 

00C1l VRAEIP PIP not specified correctly 

00C2 VRAESI Security not valid 

00C3 VRAECM Conversation type mismatch 

0O0DO0 VRAESP Sync level not supported by program 
00D1 VRAERP Reconnect level not supported by program 
00D2 VRAENR TP not available--no retry 

00D3 VRAETR TP not available--retry 

O0EO VRAEAN ACC not valid 

OOF1 VRDAPG Remote deallocation--ABEND program 
OOF2 VRDASV Remote deallocation--ABEND service 
00F3 VRDATM Remote deallocation--ABEND timer 
0004 VRPEPR Program error-~purging 


If the conversation is in receive state when you execute the 
SSSERR, the following return codes are possible. 


Value Label Description 

004C VRITYP Invalid type specified 

00BO VRAETN TPN not recognized 

00CO0 VRAEPI PIP not allowed 

00Cl VRAEIP PIP not specified correctly 

00C2 VRAESI Security not valid 

00C3 VRAECM Conversation type mismatch 

0OD0 VRAESP Sync level not supported by program 
0OD1 VRAERP Reconnect level not supported by program 
00D2 VRAENR TP not available--no retry 

00D3 VRAETR TP not available--retry 

OOEO VRAEAN ACC not valid 

OOFO VRDANM Deallocate normal 

0007 VRSEPR Service program error, purging 


If the conversation is in confirm state when you execute the 
SSSERR, the following return codes are possible. 


Value Label Description 
004C VRITYP Invalid type specified 
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OUTPUT CONTROL WORD 


The REQUEST TO SEND RECEIVED field in the output control word 
(VP_OCT.VBRRTS) indicates whether the remote program has 
issued a request to send notification, requesting the local 
program to enter receive state and placing itself in send 
State. This condition is indicated when this bit is set. 
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SSWAIT - Wait Verb 


The SSWAIT verb waits for posting to occur on any of a list 
of conversations. 


FORMAT: 

[label] SSWAIT [vpb list] Pl: S$B4 
ARGUMENTS : 
vpb list 


This parameter contains a pointer to the address of the 
list of VPBs identifying the conversations on which the 
SSWAIT is waiting. 


The VPB list consists of a single precision unsigned 
integer containing the number of pointers in the list, 
followed by a list of the addresses of all of the VPBs 
used by the transaction program. 


DESCRIPTION: 


The SSWAIT verb causes the local program to suspend 
processing and wait for posting to occur on any conversation 
from a list of conversations. This verb is issued after the 
SSPONR (Post on Receipt) verb. Following the SSWAIT verb, 
you must execute the SSRAW verb to gain access to the data. 


If you have issued the SSPONR to allow the application to 
continue other program processing while waiting for data from 
the host. The SSWAIT brings you back to the conversation 
that has been posted. 


Executing the SSWAIT verb does not change the state of the 
conversation. 


RETURN CODES: 


The application should check the return code after each 
execution of a verb. Bits 0 through 4 have special meaning 
and represent general AIF return codes that could occur for 
any verb. These bits should be examined individually, then 
“masked out" so that the application can examine bits 5 
through 15. 
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In addition to the general return codes, the following values 
are possible. | 


Value Label Description 


0000 VROKAY OK | 
0001 VRUNSU Unsuccessful 
0041 VRIRID Invalid resource ID (the verb parameter 
| list contains an invalid resource 
identifier. $B4 contains the pointer to 
this ID. 
0016 VRNRCV Not in receive state 


RETURN PARAMETER 
conversation posted 


The address of the verb parameter block for the 
_ conversation that has been posted is returned in $B4. 


If you have multiple conversations, then this parameter 


contains the VPB address of the conversation that has 
been posted. 
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SSACEB - ASCII-to-EBCDIC Conversion Routine 
Converts data from ASCII to EBCDIC. 
FORMAT: 
label SSACEB 
ARGUMENT: 
There are no arguments associated with this macro. 
DESCRIPTION: 
These session calls convert data from ASCII to EBCDIC. The 


maximum length of data that can be converted by a single call 
is 32,767 bytes. 


Since IBM handles data in EBCDIC and AIF handles it in ASCII, 
you may sometimes wish to convert data from one to the other, 
either before sending or after receiving. 


The AIF software provides the following macros to perform 
these conversions. 


% 


SSACEB ASCII-To-EBCDIC Conversion 


When this macro is activated, you must initialize registers 
SB2, SB4, SR2, $R4, and $R6 to contain the values listed in Table 
4-4, If you wish to convert in place, $B2 and $B4 must reference 
the same address. 
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SSACEB 


Table 4-4. Register Contents at Conversion 


SB2 Pointer to buffer to be converted | 

SB4 Pointer to buffer to contain converted data | 
SR2 Index for buffer to be converted 

SR3 Function code (SSACEB=1; SSEBAC=2) 


SR4 Index for buffer to contain converted data 
SR6 Length of data in bytes 


IMPORTANT! 


Do not convert the two-byte binary LL field of the 
logical record. 
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S$SEBAC 


SSEBAC - EBCDIC-to-ASCII Conversion Routine 
Converts data from EBCDIC to ASCII. 
FORMAT: 
label SSEBAC 
ARGUMENT : 
There are no arguments associated with this macro. 
DESCRIPTION: 
These session calls convert data from EBCDIC to ASCII. The 
maximum length of data that can be converted by a single call 
is 32,767 bytes. 
Since IBM handles data in EBCDIC and AIF handles it in ASCII, 
you may sometimes wish to convert data from one to the other, 


either before sending or after receiving. 


The AIF software provides the following macros to perform 
these conversions. 


SSEBAC EBCDIC-To-ASCII Conversion 
When this macro is activated, you must initialize registers 
SB2, SB4, SR2, $R4, and $R6 to contain the values listed in Table 


4-4, If you wish to convert in place, $B2 and $B4 must reference 
the same address. 
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SSEBAC 


Table 4-5. Register Contents at Conversion 


$B2 
SB4 


$R2 
— $R3 
SR4 


SR6 


| Pointer to buffer to be converted 


Pointer to buffer to contain converted data 


| Index for buffer to be converted 


Function code (SSACEB=1; SSEBAC=2) | 
Index for buffer to contain converted data | 
Length of data in bytes | 


IMPORTANT ! 


Do not convert the two-byte binary LL field of the 
logical record. 
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Section 5 

PROGRAMMING LU TYPE 
6.2 CONVERSATIONS IN 
COBOL 


This section describes the AIF conversation verbs that the 
COBOL programmer uses to converse over an LU Type 6.2 
conversation with host transaction programs. Topics include: 

@ COBOL conversation verbs 

@ Conversation format 


@® Programming Considerations 


WORK ING-STORAGE SECTION 
Checking the return code 
Conversation states 
Session calls 


COBOL CONVERSATION VERBS 


The basic conversation verbs used by AIF in a COBOL 
application program call correspond to Assembly language 


subroutines using the "CALL...USING..." verb. These calls are 
listed in Table 5-3. 


The parameters that these verbs use are defined in the 
WORKING-STORAGE SECTION of the COBOL program. In this manual, 
these parameters are defined in the discussion of the 
WORKING~STORAGE SECTION and are listed without redefinition in 
the format description of each conversation verb. 
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At the completion of each execution of a verb, when control 
is returned to the application, a return code is placed in the 
RETURNS field. This return code indicates whether a verb has 
been completed error free. The application should check the 


return code after each execution of a verb to verify that the 
execution was completed error-free. 


Sample COBOL programs is provided in Appendix C to 
demonstrate an AIF application in a COBOL program. 


CONVERSATION FORMAT 


The conversation verbs used by AIF in a COBOL program 
reference Assembly language subroutines which include 
system-provided macrocalls. The COBOL conversation verbs have a 
list of arguments that must be specified each time a verb is 
executed. These arguments, which you define in the 
WORKING-STORAGE SECTION, correspond to parameters in the verb 
parameter block (VPB) that are used by the Assembly language 

Subroutine. These arguments are positional and must be included 
each time the verb is issued. The AIF COBOL conversation verbs 
follow the conventions for COBOL (described in detail in the ONE 


PLUS COBOL 74 Language Reference Manual (HE34). 


When an AIF conversation is activated, it defines the 
resources to be made available to the session while that 
conversation is active. AIF allocates a session for a 
conversation from a group of available LU sesSions. AIF can 
either request a session to the host system at initiation or it 
can wait for an application to request to allocate a conversation 
before requesting a session. The time of logon is a 
configuration option. 


An application requests to allocate a conversation with a 
remote transaction program by executing the CSALLO verb. AIF 
looks for an available session to allocate for that 
conversation. If no session is immediately available, the 
application can specify whether control should be returned to the 
program. The conversation uses a sesSion for only the time it 
takes to execute the verb. After the verb is executed, the 
conversation retains its resources until a deallocate verb is 
issued or a deallocate-confirmation is received from the host 
application. 


An application gains access to a host-initiated conversation 
executing a CSATCH verb. When an ATTACH command is received from 
the host, AIF loads the transaction program by spawning a group 
with the attached application as the lead task, and sends a 
response to the host that the program is attached. If the DPS 6 
or DPS 6 PLUS program is intended to be part of a host-initiated 
session, it must execute the CSATCH verb before any other verbs 
are issued. 


S=2 GR11-02 


SE CRAY sR SR A ME ce reer ECE tN een AN SENS te ASS SESE SARE ETA RIED IO RCGNSST, nnrnchn ntn 


PROGRAMMING CONSIDERATIONS 


The special considerations that the COBOL programmer must 
bear in mind fall into the following categories. 


WORKING-STORAGE SECTION 
Conversation state 
Host-initiated sessions 
Linking the program 
Checking the return code 
Conversation format. 


WORKING-STORAGE SECTION 


The WORKING-STORAGE SECTION defines the area to be used as 
the SNA work area. The parameters specified in these fields are 
passed to the VPB when the conversation verbs are executed. 


The following parameters must be defined in the WORKING- 
STORAGE SECTION. TheSe parameters are used to create the verb 


parameter block which is used by the Assembly language 
Subroutines you are calling. 


Figure 5-1 shows a sample WORKING-STORAGE SECTION in which 
the SNA work area has been defined. The data-names that are used 
here are examples; you can name them according to your own naming 
conventions. 
These fields are defined as follows: 
SNA~WORK-AREA 
This input parameter is the name of a contiguous memory 
area that is at least 200 bytes long. This corresponds 
to the verb parameter block (VPB) argument of the 
Assembly language converSation verbs. 
Examples 
SNA-WORK-AREA1 PIC X(200). 

NODE~NAME 
This parameter identifies the AIF node on the DPS 6 or 
DPS 6 PLUS to which the application is directing this 
verb. This field can contain up to eight alphanumeric 
characters. 
Example: 


77 NODE-NAME PIC X(8) VALUE “AIF501". 
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DATA DIVISION. 
WORKING-STORAGE SECTION. 


77 
77 
77 
77 
77 
77 
77 
77 
77 
77 
77 
77 
77 


Ol 


77 
77 
77 


77— 


47 
77 


77 


77 
Ol 


01 


77 
77 
77 
Ol 
77 
Ol 
O01 


SNA-WORK~AREAIL 
NODE- NAME _— 
REMOTE-LU-NAME_ 
CONVERSATION-ID 
TRANS~PROGRAM~NAME 
TRANS~TPN 
NO-TRANS-TPN 
STD-NAME 
RETURN-CONTROL 
SYNC-LEVEL 
TYPE 
LOG 
NO-LOG 
LOG-DATA- RECORD 
05 LL 
05 GDS-ID 
05 LOG-DATA 
LOG-DATA-SIZE 
LOCKS 
SEND-BUFFER 
SEND-BUFFER-SIZE 
RECEIVE-BUFFER 
RECEIVE-BUFFER~-SIZE 
RECEIVED-DATA~LENGTH 
FILL 
RETURNS. 
02 RETURN-A. 
03 ABEND-DEALLOCATE 
03 STOP-RCVD 
03 SERV-REQ-CANC 
03 SERV-REQ-COMP 
03 COBOL-ERROR 
02 RETURN-B 
OUTPUT-CONTROL-WORD. 
02 REQ-TO-SEND-RCVD 
02 CONV-POSTED 
02 WHAT-RECEIVED 
POSTED-CONV-ID 
RCVD-SENSE 
CONVERT—-FROM-FIELD 
CONVERT-FROM-LEFT-POSIT 
CONVERT-TO-F IELD 
CONVERT-TO-LEFT-POSIT 
CONVERSION-LENGTH 


PIC X(200). | 
PIC X(8) VALUE "AIF501". 
PIC X(8) VALUE "AO6CICS". 
PIC X(4). 

PIC X(8) VALUE "TP42". 
PIC X VALUE Wyn 

PIC X VALUE "N". 

PIC XX VALUE "BB". 
PIC X VALUE "A". 


PIC X VALUE "C". 
PIC X VALUE "S"*. 
PIC X VALUE "L". 
PIC X VALUE "N". 
PIC 9(5). 
COMP-l VALUE 84. 
COMP-1. 

PIC X(80). 


PIC 9(5) VALUE 80 
PIC X VALUE "S". 
PIC X(&0). 


PIC 9(5) VALUE 80. 


' PIC X(80). 


PIC 9(5) VALUE 80. 
PIC 9(5) VALUE 0. 


PIC X VALUE "B". 


PIC X VALUE "N". 
PIC X VALUE "N". 


PIC X VALUE "N". 
PIC X VALUE "N". 
PIC X VALUE "N". 
PIC 9(4) VALUE 0. 


PIC X VALUE "N". 
PIC X VALUE "N". 
PIC 99. 

PIC X(4). 

PIC X(8). 


 pPpIc x(20). 


COMP-1 VALUE 1. 
PIC X(20). 
COMP-1 VALUE 6. 
COMP-1 VALUE 10. 


Figure 5-1. Working-Storage Section for LU Type 6.2. 
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REMOTE-LU-NAME 
The name by which the remote LU is known to this 
application. This field can contain up to eight 
alphanumeric characters. This name equates to the 
application VTAM macro at the IBM host. 
Example: 
77 REMOTE-LU-NAME PIC X(8) VALUE “AO6CICS". 
CONVERSATION-ID 


This parameter returns a unique four-character 
conversation-id which is supplied by AIF. 


Example: 

77 CONVERSATION-ID PIC X(4). 
TRANS-PROGRAM~-NAME 

This parameter contains the name of the transaction 

program to be attached to the host. This host program 

becomes the session partner of the local program. 

Example: 

77 TRANS-PROGRAM-NAME PIC X(8) VALUE "TP42". 


TRANSLATE-TPN 
NO-TRANSLATE-TPN 


This parameter specifies whether the transaction program 
name specified above requires translation from ASCII to 


EBCDIC. 

Example: 

77 TRANS-TPN PIC X VALUE "Y". 

77 NO-TRANS-TPN PIC X VALUE "N". 
STD-NAME 


The configured session type descriptor (STD) which lists 
the attributes of the conversation to be allocated. This 
field consists of two alphanumeric characters and is 
defined at AIF configuration time. 

Examples: 


77 STD-NAME PIC XX VALUE "BB". 
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RETURN-CONTROL 


This parameter indicates whether-the local LU should 
return control to the local program, in the event that it 
is unable to allocate a conversation. 

The following arguments are valid for this parameter: 


ehU6U<Ad (AVAIL) ~ allocates a session for the conversation 
before returning control to the program. 


@e I (IMMEDIATE) - allocates a session for the 
conversation if one is immediately available and then 
returns control to the session. 

Example: 

77 RETURN-CONTROL PIC X VALUE "A", 

SYNC-LEVEL 


This parameter indicates how the local and remote 


programs perform confirmation processing on the specified 
conversation. | 


The following arguments are valid for this parameter: 
e N (NONE) - do not perform confirmation processing on 
this conversation. Programs that specify NONE do not 


issue any verbs or recognize return parameters related 
to synchronization. 


@ cC (CONFIRM) - performs confirmation processing only on 
this conversation. Programs that specify CONFIRM 
issue verbs and recognize returned confirmation 
parameters. | 

Example: 

77 SYNC-LEVEL PIC X VALUE "C". 


TYPE 


This parameter specifies whether the execution of the 
verb is to be completed as part of this verb or deferred 
until another verb is issued or a condition is met. 


The following arguments can be used for this parameter: 
e S (SYNCLVL) - executes the verb according to the 


synchronization level specified when the conversation 
was allocated: 
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@ F (FLUSH) - flushes the local LU's send buffer and 
executes the verb. 


The following TYPE arguments are used for error handling 
and are application dependent. 


® P (ABEND PROG) - with CSDEAL, flushes the local LU's 
send buffer when the conversation is in send or defer 
state and deallocates normally. 


@ V (ABEND SVC) - with CSDEAL, flushes the local LU's 
send buffer when the conversation is in send or defer 
state and deallocates the conversation abnormally. 


@ T (ABEND TIMER) - with CSDEAL, flushes the local LU's 
send buffer when the conversation is in send or defer 
State and deallocates the conversation abnormally. 


Example: 
77 TYPE PIC X VALUE "S". 

LOG 
This parameter indicates whether or not the system error 
log 1S transferred to the transaction when deallocating 
the conversation. The value of LOG is L; the value of 
NO-LOG is N. If you specify that error logging should 
occur, the TYPE parameter must be specified as P, V, or 
T. 
Examples 


77 LOG PIC XM VAL 
77° NO-LOG | AL, 


LOG-DATA 


This parameter is a pointer to the product specific error 
data that is kept in the system error logs of the local 
and remote LUs. Error data is declared in the General 
Data Stream record format as described in the IBM SNA 
Format _and Protocol Reference Manual for LU Type 6.2. 

The record must start on a word boundary and all fields 
must be filled by the application. This parameter is 
only used with an ABEND deallocation type. 
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Example: 


O01 LOG-DATA~RECORD. 


O05 LL PIC 9(4} COMP-1 VALUE 84. 
05 GDS-ID PIC 9 COMP-1. 
05 LOG-DATA PIC X(80). 


LOG-DATA-SIZE 
This parameter specifies the length of the LOG-DATA. 
Example: 
77 LOG-DATA-SIZE PIC 9(5) VALUE 80 

LOCKS 
This parameter specifies whether the local program waits 
for a reply when a request for confirmation points is 
executed following a CSPTOR (prepare to receive) verb. 


The following arguments are valid for this parameter. 


@e S (SHORT) -— Control is returned to the local program 
when an acknowledgement is received. 


e L (LONG) - control is returned to the local program 
when data is received from the remote program 
following an acknowledgment. 

SEND-BUFFER 

This parameter identifies the buffer which holds the data 

to be sent to the remote program. This buffer contains 

the data being sent in the form of logical records. Each 
logical record consists of a two-byte field specifying 
the length of the data in that logical record, and the 
logical record itself. A buffer can contain any number 
of complete or partial records that fills the buffer. 

Example: 

77 SEND-BUFFER | PIC X(80). 
SEND-BUFFER-SIZE 
This parameter specifies the length of the SEND-BUFFER. 
Example: 


77 SEND-BUFFER-SIZE PIC 9(5) VALUE 80. 
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RECEIVE-BUFFER 


This parameter identifies the buffer which receives the 
data from the remote program. 


Example: 
77 RECEIVE-BUFFER PIC X(80). 
RECEIVE-BUFFER-SIZE 


This parameter specifies the length of the 
RECEIVE-BUFFER. 


Example: 
77 RECEIVE-BUFFER-SIZE PIC 9(5) VALUE 80. 


RECEIVED-DATA~LENGTH 


This parameter specifies the actual length of the data 
which has been received from the remote program. 


Example: 
77 RECEIVED-DATA~LENGTH PIC 9(5). 
FILL 


This parameter specifies how the program receives data in 
terms of the logical record format of the data. The 
following arguments are valid for this parameter. 


e B (BUFFER) - data is buffered into units of the length 
Specified in the LENGTH parameter, independent of its 
logical record format. The verb is executed when the 
buffer is full or the end of data is indicated. 


@e L (LL) - the verb is executed when a complete or. 
truncated logical record is received, or when part of 
a logical record is received that is at least as long 
aS the length specified in the LENGTH parameter. 


Example: 
77 FILL PIC X VALUE "B". 

RETURNS 
This output parameter defines the field into which the 
return code from all AIF session calls is placed. The 
RETURNS field is divided into RETURN-A, which consists of 
five yes/no conditions, and RETURN-B, which contains a 
four character decimal status code to provide further 
detail about the conditions indicated in RETURN-A. 
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RETURN-A reports the following conditions: 


ABEND-DEALLOCATE--the conversation has Abended. 
STOP-RCVD--SOPR stop command has been received. 
SERV-REQ-CANC--This request has been cancelled. 
SERV-REQ-COMP--This request has been completed. 
COBOL-ERROR--A COBOL interface error has occurred. 


Example: 


Ol RETURNS. 
02 RETURN-A. 


03 ABEND-DEALLOCATE PIC X VALUE "N". 
03 STOP-RCVD PIC X VALUE "N". 
03 SERV-REQ-CANC PIC X VALUE "N". 
03 SERV-REQ-COMP PIC X VALUE "N". 
03 COBOL-ERROR © PIC X VALUE "N". 
02 RETURN-B PIC 9(4) VALUE 0. 


TIMEOUT 


This output parameter provides a formatted data area for 
the date and time that a session must be stopped when a 
STOP command is processed for the session or node. This 
field must be 14 decimal digits long, as in the following 


format: — 
Example: 
Ol TIMEOUT 
02 DATE]. 
03 YY PIC 99 VALUE QO. 
03 MM PIC 99 VALUE O. 
03 DD PIC 99 VALUE 0. 
02 TIME1. 
03 HH PIC 99 VALUE 0. 
03 MN PIC 99 VALUE 0. 
03 SSSS PIC 9(4) VALUE 0. 
RCVD-SENSE 


This output parameter contains the hexadecimal 
representation of the sense data from the host if sense 
data is present. This field corresponds to VP_ESD in the 
VPB. 

Example: 


77 RCVD-SENSE PIC X(8). 
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OUTPUT-CONTROL-WORD 


This output parameter provides information about the 
received data. The characteristics that can be specified 
are listed below. Each of these parameters must be 
Stated. The possible values for the first two parameters 
are "Y" or "N". For the third parameter refer to the 
Receive and Wait (CSRAW) verb for the possible 
parameters. 


01 OUTPUT-CONTROL-WORD. 


02 REQ-TO-SEND-RCVD PIC X VALUE "N". 
02 CONV-POSTED PIC X VALUE "N". 
02 WHAT-RECEIVED PIC 99. 


CONVERT-FROM-FIELD 
This input parameter defines the buffer to be converted 
by the ASCII-to-EBCDIC conversion subroutines. The 
maximum Size of this buffer is 32,767 bytes. 
Example: 
77 CONVERT-FROM-FIELD PIC X(20). 
CONVERT-FROM-LEFT-POSIT 


This input parameter provides a starting index for the 
data in CONVERT-FROM-FIELD. 


Example: 


01 CONVERT-FROM-LEFT-POSIT COMP-1 VALUE 1. 


NVERT-TO-FIELD 

This input parameter defines the buffer into which the 

converted data will be placed by the ASCII-to-EBCDIC 

conversion subroutines. The maximum size of this buffer 

is 32,767 bytes. 

Example: 

77 CONVERT-TO-FIELD PIC X(15). 
CONVERT-TO-LEFT-POSIT 


This input parameter provides a starting index for the 
data in CONVERT-TO-FIELD. 


Example: 


01 CONVERT-TO-LEFT-POSIT COMP-1 VALUE 6. 
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CONVERS ION-LENGTH 


This input parameter contains the length in bytes of the 
data to be converted. The maximum length of this data is 
32,767 bytes. | ) 


Example: 
01 CONVERSION-LENGTH COMP-1 VALUE 10. 
Conversation States 


The subset of verbs that a program can issue at a given time 
is determined by the state of the conversation at that time. For 
example, if a conversation is in receive state, it cannot issue a 
send verb without first issuing a verb to change the conversation 
to send state. The program must be aware of the state of the 
conversation. Executing many of the basic conversation verbs 
Causes the conversation to change its state. 


Table 5-1 lists the conversation states and their 
definition. The description of each verb includes the state of 


the conversation at the end of execution. Table 5-2 shows what 
verbs a conversation can issue from each state. 


Table 5-1. Conversation States 


state | petinition 


Reset The state in which the program can allocate a 
conversation. | 


Send The state in which the program can send data 
Or request confirmation. 


Defer The state in which the program can request 


confirmation or flush the LU's send buffer to 
| prepare to change states. 


Receive | The state in which the program can receive 
data or confirmation information. 


Confirm | The state in which the program can send a 
| confirmation reply. 
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Table 5-2. Conversation States From Which Verbs Can Be Issued 


Conversation State 


CSALLO 

CSATCH 

CSCONF 

CSCNFD 

CSDEAL flush 
CSDEAL sync level | 
CSDEA1 abend : 
CSFLSH 

CSPONR 

CSPTOR 

CSRAW 

CSRTOS 

CSSDAT 

CSSERR 

CSWAIT 


Pr OK OS ORK SO GOK 


Host~-Initiated Sessions 


AIF supports host-initiated sessions; that is, it accepts 
unsolicited binds. 


When the application program begins execution, it must issue 
a CSATCH session call as the first session call, providing the 
STD name and the node name for the LU to be used. The CSATCH 
session call allows the AIF application access to a host=- 
initiated conversation. AIF associates the first unsolicited 
bind (host-initiated session request) to the first CSATCH session 
call from the task group that AIF spawned. 


AIF accepts the session and looks for the program name in the 
first four bytes of the first record received, then spawns a 
group based on the ATTACH PROGRAM entry. If none is provided, 
default values are used to spawn the group. 


The application can issue multiple CSATCHsS to check for 
additional host-initiated sessions intended for this 
application. Each of these LUs must have the same group _id 
specified in the LU entry in the configuration file. 


5-13 GR11-02 


NOTE 


In order to execute a START _UP.EC instead of an 

attached program, you must create an attach 

program tabie entry with a dummy name (eg., 

ATTACH PROG=ABC), specifying the appropriate spawn 

group parameters, and include an ALIAS for ABC 
(eg., ALIAS=>>SYSLIB2>EC?EXECL) to execute the 

START UP.EC specified in the home directory. 


Refer to SNA6 Network Configuration for further 
information. 


Linking the Program 


If a COBOL application program is written as a program to be 
attached, that is, it includes an ATTACHED verb (CSATCH), then a 
LINKAGE SECTION must be included in the program. The LINKAGE 
SECTION must include three entries to accommodate the node name, 
STD name, and base level, as in the following example: 


LINKAGE SECTION. 

77 NODE PIC X(8). 

77 STD PIC XX. 

77 BASE LVL PIC 99. 

PROCEDURE DIVISION USING NODE, STD, BASE_LVL. 


: The LINKAGE SECTION is necessary whether the program is to be 
compiled using COBOLA or COBOLM. The programs are coded in the 
Same way, regardless of which he aie is used, but they are 
linked differently. 


Within the COBOL application program, the three fields in the 
LINKAGE SECTION must be moved to corresponding fields in 
WORKING-~STORAGE before they can be used in any AIF calls. 


Two sample LINK directive sets are presented below to 
demonstrate the different Linker directives you can use. The 
following matrix shows which set you should use, based upon LU 
type, whether you are writing an attached program, and the COBOL 
compiler you are using. 


Compiler used: COBOLA COBOLM 


ATTACHED | 4 7 2 
calls used: 


No ATTACHED 2 2 
calls used: 
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LINK DIRECTIVE SET l 


&N 

&A 

LINKER &l 

LIB >LDD>ZCART/ 
LIB >LDD>ZCMRT* 
LINK &l 

LINK CSPHRA 

MAP 

QT 


* Use either LIB, where ZCART is used for COBOLA and ZCMRT 
is used for COBOLM. 


LINK DIRECTIVE SET 2 


&N 

&A 

LINKER &l 

LIB >LDD>ZCART 
LINKN CSLEAD 
LINK &1 

LINK CSPHRA 
MAP 

LDEF CBLADR, & 
QT : 


NOTES 


The module CSPHRZ is the parameter processing 
routine for LU Type 6.2 calls. 


Programs compiled by COBOLM automatically have the 
node name, STD name, and base level moved to the 
LINKAGE SECTION. Programs compiled by COBOLA use 
the CSLEAD Linker module to perform this 
function. This module must be linked into the 
bound unit of any program that executes a CSACPT 

‘ Or CSATCH and is compiled using COBOLA. 


Refer to the Multiuser COBOL Compiler User's Guide 
(HE32) for information about linking programs ~ 


compiled under COBOLA and COBOLM into a single 
bound unit. 


Checking the Return Code 


On return from AIF, a COBOL interface routine fills the 
output parameter fields with the VPB results from the subroutine. 
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After the session call is made, a return code is placed in 
the RETURNS field. The RETURNS field is divided into RETURN-A, 
which consists of five yes/no conditions, and RETURN-B, which 
contains a four-character decimal status code, known as the 
return code, to provide further detail about the conditions 
indicated in RETURN-A. 


The following values are possible for RETURN-A: 


® ABEND-DEALLOCATE--The conversation has ABENDed, the LU's 
receive buffer has been flushed, and the conversation has 
been deallocated. | 


® STOP-RCVD--An SOPR STOP command received. If the TIME 
argument is supplied with the STOP command, check the 
TIME field for the time at which the session will be 
ended. This field indicates how much time you have to 
complete the session. 


@ SERV-REQ-CANC--This request has 
application must issue it again 


been cancelled. The 


1f necessary. 


@ 


SERV-REQ-COMP--This request has been completed. 


e COBOL~ERROR-~Error in uSing COBOL interface to AIF. 
_ RETURN-B for return code. 


see 


If the value of COBOL~ERROR is Y, then an error has occurred 
in the COBOL interface to AIF. Following are the general COBOL 
return codes that can be received in RETURN-B after executing any 
of the verbs to indicate a COBOL error. The value of XX is the 


number of the parameter in which there is an error. 
Code Meaning 
XX01l Unrecognized parameter 
XX02 Parameter must be 1 byte long 
XX03 Parameter must be 5 bytes long 
XX04 Default not acceptable 
XX05 Node name error 
XX06 Remote LU name error 
XX07 Not session-ID 
XX08 Unknown interrupt type 
XX09 Nondecimal digit 
XX10 Nonhexadecimal digit 
XX11l Error in conversion 


The values of both RETURN-A and RETURN-B should be checked 


after the execution of each verb. 


Since it is possible to have 


more than one Y value in RETURN-A, and to have a value greater 
than zero after a successfully completed call, the application 
Should check all fields in RETURN-A and RETURN-B for all possible 


combinations. 
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If the return code contains a "no error" message, go to the 


next segment of the program. 


If the return code contains an 


error condition, you might decide to record it to an error-out 


file, go to another segment of the program, or shut down 


completely. 


Additional return codes are listed with the individual 


conversation verbs to which they pertain. 


their values are listed in Appendix F. 


INDIVIDUAL VERB FORMAT 


The return codes and 


Table 5-3 lists the basic conversation verbs that are 


Supported by AIF. 


following pages. 


Table 5-3. AIF LU Type 6.2 Verbs 


| CSALLO 
| CSATCH 
| CSCONF 
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CSCNFD 
CSDEAL 
CSFLSEH 
CSPONR 
CSPTOR 
CSRAW 

CSRTOS 
CSSDAT 
CSSERR 


| CSWAIT 


; CSACEB 
| CSEBAC 


| Allocate verb 

| Attached verb 

| Confirm verb 

| Confirmed verb 

| Deallocate verb 

| Flush verb 

| Post on Receipt verb 

| Prepare to Receive verb 
| Receive and Wait verb 

| Request to Send verb 

| Send Data verb 

| Send error verb 

| Wait verb 

| ASCII-EBCDIC Conversion 
| EBCDIC-ASCII Conversion 


5-17 


These verbs are described in detail on the 


GR11-02 


CSALLO 


CSALLO - Allocate Verb 


The CSALLO verb is used to allocate a conversation between a 
local program and a remote program. 


FORMAT: 
CALL "CSALLO" USING SNA-WORK-AREA 
NODE-NAME 
REMOTE-LU-NAME 
CONVERSATION-ID 


TRANS~PROGRAM— NAME 
TRANS-TPN | NO-TRANS-TPN 
STD-NAME 
RETURN-CONTROL 
SYNC-LEVEL 

RETURNS 

TIMEOUT 

RCVD-SENSE 
OUTPUT-CONTROL~WORD 


DESCRIPTION: 


The CSALLO verb first initiates a session between a local LU 
and a remote LU, then allocates a conversation over that 
session, between a local program and a remote program, and 
puts the conversation in send state. Once you have allocated 
a conversation over a session, that session becomes 
unavailable to other conversations until this conversation is 
deallocated. 


The CSALLO verb is used to allocate conversations for either 
transaction programs or service component programs. The | 
parameters issued with this verb identify the partners in the 
conversation and initialize the returned fields. 


The CSALLO verb must be issued before any other AIF verbs 
that refer to the specified conversation. 


When issuing the CSALLO, you have the option of whether you 
want to wait for an available session or to return control to 
the local program for processing if one is not immediately 
available. These options are addressed by the RETURN-CONTROL 
parameter. 
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The A (AVAIL) option allocates a session for the 
conversation before returning control to the program. If 
the local LU fails to obtain a session for this 
conversation, an allocation error is reported in the 
CSALLO return code. 


The I (IMMED) option allocates a session for the 
conversation if one is immediately available and then 
returns control to the session. The following conditions 
are possible: 


@e If a sesSion iS immediately available, the 
conversation is allocated and control is returned with 
a return code of OK. The IMMED option requests that a 
local LU is the contention winner. 


e If a session in not immediately available, the 
conversation is not allocated and control is returned 
with a return code of unsuccessful. 


@ If a session is immediately available and an error 
occurs in allocating a conversation, the error is 
reported in the return code. 


NOTE 


If the LU is configured with the contention winner 
as nonnegotiable, an LU must be both reserved and 
preestablishned. 


The CSALLO verb must be issued before any other verbs that 
refer to the specified conversation. At the completion of 
the CSALLO verb, the conversation enters send state. 


RETURN CODES: 


The application should check the return code after each verb 
is issued to determine if the call has been completed error 
free. After the execution of the CSALLO verb, the following 
combinations are possible: 


If SERV-REQ-COMP=Y and RETURN-B=0, the conversation has 
been allocated. 


If the value of another field in RETURN-A is Y, the CSALLO 
was not allocated successfully and RETURN-B contains the 
return code to indicate the reason for the error. 
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The value that you specified for the RETURN-CONTROL 
parameter determines which return codes are possible. 
The following values are possible in RETURN-B for any 
value of RETURN-CONTROL. 


Value 


0000 
0064 
0066 
0073 
0075 
0150 
0151 
0152 
0153 
0154 


Description 


OK 

Invalid node name 

Invalid transaction program name (null value) 
Synchronization level not supported by LU 
Invalid return control | 

Node not yet active 

No active LU for session | 

No LU available for session 

Invalid STD name 

Invalid LU type in STD 


In addition, if you specified a return control of IMMED, the 
following value is possible: 


Value 


0001 


Description 


Unsuccessful 
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CSATCH - Attached Verb 


The CSATCH verb is used by an attached program to gain access 
to the coversation. 


FORMAT: 


CALL "CSATCH" USING SNA-WORK-AREA 
NODE~NAME 
REMOTE~LU- NAME 
CONVERSATION-ID 
STD-NAME 
RETURN-CONTROL 
SYNC-LEVEL 
RETURNS 
TIMEOUT 
RCVD-SENSE 
OUTPUT-CONTROL-~WORD 


DESCRIPTION: 


The CSATCH verb causes an application to connect to a 
host-initiated conversation. When the host issues an ATTACH 
command to allocate a conversation, AIF loads the local 
transaction by spawning a group with the program as the lead 
task. When the program is loaded, the COBOL program must 
issue the CSATCH verb to direct AIF to associate the session 
to this COBOL program. 


The CSATCH verb can be issued with the following values for 
SYNC-LEVEL: 


@® NONE - do not perform confirmation procesSing on this 
conversation. Programs that specify NONE do not issue any 
verbs or recognize return parameters related to 

. synchronization. 


@ CONFIRM - performs confirmation procesSing only on this 
conversation. Programs that specify CONFIRM issue verbs 
and recognize returned confirmation parameters, but do not 
recognize return parameters related to synchronization. 


If the application is intended to connect to a host-initiated 
session, the CSATCH must be the first verb executed. After 
the CSATCH verb is executed, the conversation enters receive 
state. 
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RETURN CODES: 


The application should check the return code after each verb 
is issued to determine if the call has been completed error 
free, After the execution of the CSATCH verb, the following 
combinations are possible. 


e If SERV-REQ-COMP=Y and RETURN-B=0, the attached program 
now has access to the session. 


e If the value of another field in RETURN-A is Y, the CSATCH 
was not successful and RETURN-B contains the return code 
to indicate the reason for the error. 


The following values are possible in RETURN-B: 


Value Description 


0000 OK | 

0064 Invalid node name 

0073 Synchronization level not supported by LU 
0153 Invalid STD name 

0155 No LU attached by remote TP 
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CSCONF - Confirm Verb 


The CSCONF verb sends a confirmation request to the remote 
program. 


FORMAT: 
CALL "CSCONF" USING SNA-WORK-AREA 
DESCRIPTION: 


The CSCONF verb requests that the remote program send an 
acknowledgement, and waits for a response. The CSCONF verb 
is used for confirmation processing and in verifying that the 
conversation has been allocated or data has been received. 
CSCONF is not used if the conversation has been allocated 
with a synchronization level of NONE. This verb causes the 
LU to flush its send buffers. 


When the CSCONF verb is issued in defer state following a 
CSPTOR, the conversation enters receive state. When the 
CSCONF verb is issued in defer state following CSDEAL, the 
conversation enters reset state. When the CSCONF verb is 
issued in send state, the state does not change. 


RETURN CODES: 


The application should check the return code after each verb 
is issued to determine if the call has been completed error 
free. After the execution of the CSCONF verb, the following 
combinations are possible. 


@® If SERV-REQ-COMP=Y and RETURN-B=0, the request for 
confirmation has been sent. 


e If the value of another field in RETURN-A is Y, the CSCONF 
was not successful and RETURN-B contains the return code 
to indicate the reason for the error. 


The following values are possible in RETURN-B: 


Value Description 


0000 OK 
0004 Program error-~-purging 
0007 Service program error, purging 


0017 Not in send/defer state 
0024 Logical record not finished yet 
0065 Invalid resource ID 
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0071 


0241 
0242 
0043 
0256 
0257 
0258 
0259 


0784 
1809 
1810 
1811 
1812 


Verb not supported (conversation was allocated 
with a sync level of none) 


Remote deallocation--ABEND program 


Remote deallocation--ABEND service 
Remote deallocation--ABEND timer 
Session unbound by host unexpectedly 
Session shutdown by host orderly 

You are timed out by SOPR command 
Resource failure, no retry--session abort due to 
unrecoverable protocol errror 
ACTLU/DACTLU received 

Link failure 

ACTPU/DACTPU received 

SA (SOPR) ABORT AIF node 

$S ABORT AIF group 


OUTPUT CONTROL WORD 


- The REQ-TO-SEND-RCVD field in the OUTPUT-CONTROL-WORD 
indicates whether the remote program has issued a request to 
send notification, requesting the local program to enter 


receive state. 


The remote program enters send state. 
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CSCNFD - Confirmed Verb 


The CSCNFD verb sends a confirmation reply to the remote 
program. 


FORMAT: 
CALL "CSCNFD" USING SNA~WORK-AREA 


DESCRIPTION: 


The CSCNFD verb sends a confirmation to a remote program, 
always in response to a request for confirmation. The CSCNFD 
verb is used in confirmation processing and error detection 
and follows a receive-and-wait verb (CSRAW). CSCNFD is not 
used if the conversation has been allocated with | a 
synchronization level of NONE. 


The WHAT-RECEIVED parameter of the CSRAW verb determines what 
state the conversation enters after the CSCNFD is executed. 
If the CSRAW returned a CONFIRM indicator, the conversation 
enters receive state. If the CSRAW indicated CONFIRM-SEND, 
the conversation enters send state. If the CSRAW indicated 
CONe one aeeebCennte the conversSation enters reset state. 


RETURN CODES: 


The application should check the return code after each verb 
is issued to determine if the call has been completed error 
free. After the execution of the CSCNFD verb, the following 
combinations are possible. 


@ If SERV-REQ-COMP=Y and RETURN-B=0, the confirmation 
response has been sent. 


® If the value of another field in RETURN-A is Y, the CSCNFD 
was not successful and RETURN-B contains the return code 
to indicate the reason for the error. 


The following values are possible in RETURN-B: 


Value Description 


0000 OK 

0007 Service program error, purging 

0018 Not in confirm state 

0065 Invalid resource ID 

0071 Verb not supported (conversation was allocated 


with a sync level of none) 
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0256 
0257 
0258 


0784 — 


1809 
1810 
1811 
1812 


Session unbound by host unexpectedly 
Session shutdown by host orderly 
You are timed out by SOPR command 


ACTLU/DACTLU received 


Link failure 
ACTPU/DACTPU received 

SA (SOPR) ABORT AIF node 
$S ABORT AIF group 
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CSDEAL - Deallocate Verb 


the 


The CSDEAL verb deallocates the specified conversation from 
transaction program. 


FORMAT: 
CALL "CSDEAL" USING SNA-WORK-AREA 
TYPE 
LOG | NO-LOG 
LOG-DATA 


DESCRIPTION: 


The CSDEAL verb deallocates the specified conversation from 
the transaction program. The parameters issued with this 
verb identify the conversation to be deallocated and the type 
of deallocation to be performed. 


When issuing the CSDEAL, the TYPE parameter allows you to 
specify whether the deallocation is to be completed as part 
of this verb or deferred until another verb is issued or a 
certain condition is met. The following options are 


available with the TYPE parameter. 


@ SYNC-LEVEL (S) - performs confirmation processing before 
deallocating the conversation: 


- If SYNC-LEVEL were none, CSDEAL flushes the local LU's 
send buffer and deallocates normally. 


- Jf SYNC-LEVEL were confirm, CSDEAL sends a confirmation 
requests to the remote LU and, if the return code is 
OK, deallocates the conversation normally. If the 
return code is UNSUCCESSFUL, CSDEAL returns the 
conversation to its previous state. 


@ FLUSH (F) - flushes the local LU's send buffer and 
deallocates the conversation normally. 


@ ABEND PROG (P) - flushes the local LU's send buffer when 


the conversation is in send or defer state and deallocates 
normally. 


@ ABEND SVC (V) - flushes the local LU's send buffer when 


the conversation is in send or defer state and deallocates 
the conversation abnormally. 
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@ ABEND TIM (T) - flushes the local LU's send buffer when 
the conversation is in send or defer state and deallocates 
the conversation abnormally. 


If ABEND deallocation occurs when the conversation is in send 
state, logical record truncation can occur. When the 
conversation is in receive state, data purging can occur. 


After the execution of the CSDEAL verb, the conversation 
enters reset state. 


NOTE 


AIF does not support a state that corresponds to 
the AIF deallocate state. If you receive a 
deallocate-confirm message after a CSCNFD verb, 
the conversation has been deallocated and its 
resources returned to the system. The 
conversation is then in reset state. 


RETURN CODES: 


The application should check the return code after each verb 
is issued to determine if the call has been completed error 
free. After the execution of the CSDEAL verb, the following 
combinations are possible: 


e If SERV-REQ-COMP=Y and RETURN-B=0, tie confirmation 
response has been sent. 


e If the value of another field in RETURN-A is Y, the CSCNFD 
was not successful and RETURN-B contains the return code 
to indicate the reason for the error. 


The SYNC-LEVEL at which the conversation was allocated 
determines the return codes that are possible for this call. 


If you executed the CSDEAL with a type of SNCLVL and the 
conversation was allocated with synchronization level of NONE 


Or a type of FLUSH, the following return codes are possible 
in RETURN-B. 


Value Description 


0000 OK 

0016 Not in send state 

0024 Logical record not finished yet 
0076 Invalid type specified 
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If you executed the CSDEAL with a type of ABEND, the 
following return codes are possible: 


Value Description 

0000 OK (deallocation is complete) 
0026 Improper state 

0076 Invalid type specified 


If you executed the CSDEAL with a type of SYNC-LEVEL 


CSDEAL 


and the 


conversation was allocated with synchronization level of 


CONFIRM, the following return codes are possible: 


Value Description 

0000 OK 

0007 Service program error, purging 

0017 Not in send/defer state 

0024 Logical record not finished yet 

0071 Verb not supported (conversation was allocated 
with a sync level of none) 

0076 Invalid type specified 

0176 TPN not recognized 

0192 PIP not allowed 

0193 PIP not specified correctly 

0194 Security not valid 

0195 Conversation type mismatch 

0208 Syne level not supported by program 

0209 Reconnect level not supported by program 

0210 TP not available--no retry 

0211 TP not available--retry 

0224 ACC not valid 

0241 Remote deallocation--ABEND program 

0242 Remote deallocation--ABEND service 

0243 Remote deallocation--ABEND timer 
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CSFLSH - Flush Verb | 
The CSFLSH verb flushes the local LU's send buffer. 
FORMAT: 
CALL "CSFLSH" USING SNA-WORK-AREA 
DESCRIPTION: 


The CSFLSH verb flushes the local LU's send buffer. Any 
information that was in the buffer is sent to the remote 
LU. The CSFLSH verb is useful for transferring incomplete 
buffers of data to the remote LU, thus avoiding a delay in 
processing. | 


If you execute a CSFLSH when the conversation is in defer 
state following a CSPTOR, the conversation enters receive 
state. If you execute a CSFLSH when the conversation is in 
send state, the state of the conversation does not change. 


RETURN CODES: 
The application should check the return code after each verb 
is issued to determine if the call has been completed error. 


free. After the execution of the CSFLSH verb, the following 
combinations are possible: 


@e If SERV-REQ-COMP=Y and RETURN-B=0, the LU's receive buffer 
has been flushed. 


e If the value of another field in RETURN-A is Y, the CSFLSH 
was not successful and RETURN-B contains the return code 
to indicate the reason for the error. 


The following values are possible for RETURN-B: 


Code Meaning 


0000 OK 
0017 Not in send/defer state 
0065 Invalid resource ID 


0256 Session unbound by host unexpectedly 

0257 Session shutdown by host orderly 

0258 You are timed out by SOPR command 

0259 Resource failure, no retry--session abort due to 
unrecoverable protocol error 
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0784 
1809 
1810 
1811 
1812 


ACTLU/DACTLU received 
Link failure 
ACTPU/DACTPU received 

SA (SOPR) ABORT AIF node 
$S ABORT AIF group 
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CSPONR - Post on Receipt Verb 


The CSPONR verb causes the LU to post the conversation when 
there is information to receive. 


FORMAT: 


CALL "CSPONR" USING SNA-WORK-AREA 
FILL 
RECEIVE~BUFFER-SIZE 


DESCRIPTION: © 


The CSPONR verb causes the LU to Signal the conversation when 
there is information to receive. The information can be 
transmitted data, status information, or a request for 
confirmation. The CSPONR can be used with the CSWAIT verb or 
the CSRAW verb to allow the application to continue with 
other processing while waiting for data from the host. 


The FILL parameter allows you to specify whether posting 
should occur when a logical record is received or when the 
receive buffer is full. 
Executing the CSPONR verb does not cause the state of the 
conversation to change. In order to execute the CSPONR, you 
must be in receive state. If you are not in receive state, 
you must first issue the CSPTOR verb. 


RETURN CODES: 


The application should check the return code after each verb 
is issued to determine if the call has been completed error 
free. After the execution of the CSPONR verb, the following 
combinations are possible: 


e If SERV-REQ-COMP=Y¥ and RETURN-B=0, the CSPONR has been 
successfully issued. 


e If the value of another field in RETURN-A is Y, the CSPONR 
was not successful and RETURN-B contains the return code 
to indicate the reason for the error. 


If the the return code indicates OKAY and the output control 
word indicates that the conversation has been posted, then 
posting has occurred and the LU has information that the 
program can receive. The program has the option of issuing a 
CSRAW at this point or it can ignore this posting by issuing 
a CSWAIT and receive this data at a later time. 
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The following values are possible for RETURN-B: 


Value Description 


0000 OK 
0022 Not in receive state 
0065 Invalid resource ID 


OUTPUT CONTROL WORD 


The CONVERSATION-POSTED field in the OUTPUT-CONTROL-WORD 
indicates whether the conversation has been posted. If this 
parameter has a value of Y, the conversation is posted and 
CSRAW can be used to receive data or information. If this 
parameter has a value of N, posting has not occurred for this 
conversation and CSWAIT can be used to wait for posting to 
occur. 
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CSPTOR - Prepare to Receive Verb 


The CSPTOR verb changes the state of the conversation to 
receive state. 


FORMAT :. 
CALL "CSPTOR" USING SNA-WORK-AREA 
TYPE 
LOCKS 


DESCRIPTION: 


The CSPTOR verb changes the state of the conversation from 
send to receive. The parameters issued with this verb 
identify the conversation whose state is being changed, the 
type of prepare-to-receive to be performed, and when control 
is to be returned to the local program after the receive. 


The TYPE parameter allows you to specify whether to perform. 
confirmation processing (SYNCLVL) before preparing to receive 
or to flush the send buffer (FLUSH). 


The locks parameter allows you to specify whether the local 
program waits for a reply when a request for confirmation is 
executed following a CSPTOR. This parameter is relevent only 
if the conversation was allocated with a synchronization 
level of CONFIRM, and the CSPTOR is executed with a type of 
SYNCLVL. 


After the CSPTOR is executed, the conversation enters receive 
State. If the CSPTOR is unsuccessful, the conversation 
remains in send state. 


RETURN CODES: 


The application should check the return code after each verb 
is issued to determine if the call has been completed error 
free. After the execution of the CSPTOR verb, the following 
combinations are possible: 


@e If SERV-REQ-COMP=Y and RETURN-B=0, the CSPTOR has been 
successfully issued. 


e If the value of another field in RETURN-A is Y, the CSPTOR 


was not successful and RETURN-B contains the return code 
to indicate the reason for the error. 
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The following values are possible for RETURN-B: 


Value 


0000 
0076 


Description 


OK 
Invalid type specified 


In addition, if you executed the CSPTOR with a type of SNCLVL 


and the conversation was allocated with synchronization level 
of CONFIRM, the following return codes are possible. 


Value 


0004 
0007 
0016 
0024 
0065 
0071 


0176 
0192 
0193 
0194 
0195 
0208 
0209 
0210 


Q211 


0224 
0241 
0242 
0243 
0256 
0257 
0258 
0259 


0784 
1809 
1810 
1811 
1812 


Description 


Program error--purging 

Service program error, purging 

Not in send state 

Logical record not finished yet 

Invalid resource ID 

Verb not supported (conversation was allocated 
with a sync level of none) 

TPN not recognized 

PIP not allowed 

PIP not specified correctly 

Security not valid 

Conversation type mismatch 

Sync level not supported by program 
Reconnect level not supported by program 
TP not available--no retry 

TP not available--retry 

ACC not valid 

Remote deallocation--ABEND program 
Remote deallocation--ABEND service 
Remote deallocation--ABEND timer 

Session unbound by host unexpectedly 
Session shutdown by host orderly 

You are timed out by SOPR command 
Resource failure, no retry--session abort due to 
unrecoverable protocol error 
ACTLU/DACTLU received 

Link failure 

ACTPU/DACTPU received 

SA (SOPR) ABORT AIF node 

$S ABORT AIF group 
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CSRAW - Receive and wast Verb 


The CSRAW verb causes the LU to wait for data on the receive 
queue and receive it. 


FORMAT: 


CALL "CSRAW" USING SNA~WORK-AREA 
RECEIVE-BUFFER 
RECEIVE-BUFFER-LENGTH 
FILL 
RECEIVED-DATA~LENGTH 


DESCRIPTION: 


The CSRAW verb causes the LU to wait for data to arrive at 
the specified conversation and receives it. The information 
can be data, status information, or a request for 
confirmation. If there is data in the receive queue when 
this verb is executed, the waiting time is eliminated. After 
CSRAW is executed, control is returned to the local program 


and the type of information received is indicated. 


If the conversation is in send state when this verb is 
issued, the local LU flushes its send buffer and the 
conversation changes to receive state. A send indicator is 
sent to the remote LU, to notify the remote program that Lt 
can send data to the local program. 


The ‘receive buffer is made up of logical records. MThe first 
two bytes of the buffer indicate the length of the buffer. 
If you want to convert the data you receive, you must first 
break it down into the record length and the logical record. 
Do not convert the record length field. 


The FILL parameter allows you to specify whether the program 
receives data in logical record format or buffers it. 


If the conversation is in send state when this verb is 
issued, the local LU flushes its send buffer and the 
conversation changes to receive state. A send indicator is 
sent to the remote LU, to notify the remote program that it 
can send data to the local program. 
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The value of the WHAT-RECEIVED parameter determines the state 
of the conversation after the SSRAW is executed. If WHAT- 
RECEIVED indicates WAR-DATA, DATA-COMPLETE, DATA-INCOMPLETE, 
Or LL-TRUNCATED, the conversation enters (or remains in) 
receive state. If WHAT-RECEIVED indicates WAR-SEND, the 
conversation enters send state. If WHAT-RECEIVED indicates 
CONFIRM, CONFIRM-SEND, or CONFIRM-DEALLOCATE, the 
conversation enters confirm state. 


RETURN CODES: 


The application should check the return code after each verb 
is issued to determine if the call has been completed error 
free. After the execution of the CSRAW verb, the following 
combinations are possible: 


® If SERV-REQ-COMP=Y and RETURN-B=0, the conversation has 
received the data successfully. 


@® If the value of another field in RETURN-A is Y, the CSRAW 
was not successful and RETURN-B contains the return code 
to indicate the reason for the error. 


The following values are possible for RETURN-B: 


Value Description 

0000 OK 

0002 Program error, not truncating 

0003 Program error, truncating 

0004 Program error--purging 

0005 Service error, not truncating 

0006 Service error, truncating 

0007 Service error-~purging 

0020 Not in send/receive state 

0024 Logical record not finished yet 
0065 Invalid resource ID 

0176 TPN not recognized 

0192 PIP not allowed 

0193 PIP not specified correctly 

0194 Security not valid 

0195 Conversation type mismatch 

0208 Sync level not supported by program 
0209 Reconnect level not supported by program 
0210 TP not available--no retry 

O211 TP not available--retry 

0224 ACC not valid 

0240 Deallocate normal 

0241 Remote deallocation--ABEND program 
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RECEIVE- 
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WHAT-REC 


Remote deallocation--~ABEND service 
Remote deallocation--ABEND timer 
Session unbound by host unexpectedly 
Session shutdown by host orderly 

You are timed out by SOPR command 
Resource failure, no retry--session abort due to 
unrecoverrable protocol error 
ACTLU/DACTLU received 

Link failure 

ACTPU/DACTPU received 

SA (SOPR) ABORT AIF node 

$S ABORT AIF group 


DATA-LENGTH 


field contains the actual length of the received 

, when WHAT-RECEIVED is a DATA indicator. The 
IVED-DATA-LENGTH includes the two-byte binary field 
specifies the logical record length and the length 
he record itself. The length can range from 2 to 
67 characters. | 


ONTROL-WORD 


REQ-TO-SEND-RCVD field in the OUTPUT-CONTROL-WORD 
cates whether the remote program has issued a request 


end notification, requesting the local program to 
r receive state and placing itself in send state. 
EIVED 


The WHAT-RECEIVED field defines what the transaction 


prog 
retu 
poss 


2 


ram has received, and should be examined when the 
rn code is SERV-REQ-COMP. The following values are 
ible for WHAT-RECEIVED. | 


SEND INDICATOR RECEIVED--the remote program has 
entered receive state causing the local program to 
enter send state. The local program can now issue a 
CSSDAT. 


CONFIRM REQUEST RECEIVED--the remote program has sent 
a confirmation request to the local program. The 
local program can respond by issuing a CSCNFD or 
another verb, such as a CSSERR. 
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CONFIRM DEALLOCATE--the remote program hasS issued a 
deallocate with type SNCLVL and a synchronization 

level of CONFIRM. The local program can respond by 
issuing a CSCNFD or another verb, such as a CSSERR. 


CONFIRM SEND RECEIVED--the remote program has issued 
a prepare to receive with type SNCLVL and a 
synchronization level of CONFIRM. The local program 
can respond by issuing a CSCNFD or another verb, such 
aS a CSSERR. 


LL-TRUNCATED--The CSRAW was issued with the LL FILL 
parameter and the length field is received 
truncated. The program does not receive the length 
of the data. 


DATA INCOMPLETE WHEN LENGTH=0--The SSRAW was issued 
with a LENGTH of zero and an incomplete logical 
record is being received by the program. No data is 
passed to the caller. : 


DATA AVAILABLE WHEN LENGTH=0--The SSRAW was issued 
with a LENGTH of zero and a complete logical record 
is being received by the program. No data iS passed 
to the caller. 


DATA--The CSRAW was issued with the buffer FILL 
parameter and data is being received by the program. 


DATA~COMPLETE--The CSRAW was issued with the LL FILL 
parameter and a complete logical record, or the 
completion of a logical record, is being received by 
the program. 


DATA-INCOMPLETE=-The CSRAW was issued with the LL 
FILL parameter and an incomplete logical record is 
being received by the program. The program must 
issue one or more additional CSRAWs to receive the 
remainder of the logical record. 
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CSRTOS - Request to Send Verb 


The CSRTOS verb indicates to the remote program that the 
local LU has data to send. 


FORMAT: 
CALL "CSRTOS" USING SNA-WORK-AREA 
DESCRIPTION: 


The CSRTOS verb indicates to the remote program that the 
local program is requesting to enter send state. The local 
LU has data to send. This data can include program data, 
Status information, or confirmation data. When the local 
program receives a send indicator in response, the 
conversation changes to send state. 


If a negative response is received, the conversation remains 
in receive state. If a positive EGePonee is EeCeaVede the 
conversation enters send state. | 


RETURN CODES: 


The application should check the return code after each verb 
is issued to determine if the call has been completed error 
free. After the execution of the CSRTOS verb, the following 
combinations are possible: 


e If SERV-REQ-COMP=Y and RETURN-B=0, the request to send has 
received the data successfully. 


@ If the value of another field in RETURN-A is Y, the CSRTOS 
was not successful and RETURN-B contains the return code 
to indicate the reason for the error. 


The following values are possible for RETURN-B: 


Value Description 


0000 OK 

0021 Not in receive/confirm state 

0025 In confirm state (received CONFIRM SEND or 
CONFIRM DEALLOCATE on the preceeding CSRAW 

0065 Invalid resource ID 


5-40 | | GR11-02 


CSSDAT 


CSSDAT -— Send Data Verb 


The CSSDAT verb sends data to the remote program. 
FORMAT : 


CALL "CSSDAT" USING SNA-WORK-AREA 
SEND~BUFFER 
SEND-BUFFER~LENGTH 


DESCRIPTION: 


The CSSDAT verb sends data to the remote program. This data 
can be data, status information, or confirmation. The data 
is formatted into logical records, which are buffered before 
being transmitted. A logical record includes the record 
being sent and the two-byte binary field specifying the 
length of the data being sent. A logical record, by 
definition, can range from 2 bytes, including only the LL 
field, to 7FFF bytes, including a two-byte LL field and 32765 
bytes of data. 


NOTE 


If you are going to translate data, you must 
translate it before you move it to the logical 
record, in order not to translate the binary 
record length field. 


Executing the CSSDAT does not change the state of the 
converSation. 


RETURN CODES: 


The application should check the return code after each verb 
is issued to determine if the call has been completed error 
free. After the execution of the CSSDAT verb, the following 
combinations are possible: 


@® If SERV-REQ-COMP=Y and RETURN-B=0, the send has been 
executed successfully. 


® If the value of another field in RETURN-A is Y, the CSSDAT 


was not successful and RETURN-B contains the return code 
to indicate the reason for the error. 
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The following values are possible for RETURN-B: 


Value Description 


0000 OK 

0004 Program error--purging 

0005 Service program error, purging 
0016 Not in send state 

0065 Invalid resource ID 

0068 Data length error 

0074 Invalid logical record length 


0176 TPN not recognized 
0192 PIP not allowed 
0193 PIP not specified correctly 


0194 Security not valid 

0195. Conversation type mismatch 

0208 Sync level not supported by program 

0209 Reconnect level not supported by program 
0210 TP not available--no retry 


0211 TP not available--retry 
0224 ACC not valid 
0241 Remote deallocation--ABEND program 


0242 Remote deallocation--ABEND service 
0243 Remote deallocation-~ABEND timer 
0256 Session unbound by host unexpectedly 


0257 Session shutdown by host orderly 

0258 You are timed out by SOPR command 

0259 Resource failure, no retry--session abort due to 
unrecoverable protocol error 

0784 ACTLU/DACTLU received 

1809 Link failure 

1810 ACTPU/DACTPU received 

1811 SA (SOPR) ABORT AIF node 

1812 $S ABORT AIF group 


OUTPUT CONTROL WORD 
The REQ-TO-~SEND-RCVD field in the OUTPUT-CONTROL-WORD 
indicates whether the remote program has issued a request to 


send notification, requesting the local program to enter 
receive state and placing itself in send state. 
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CSSERR —- Send Error Verb 


has 


The CSSERR verb indicates to the remote program that an error 
occurred. 


FORMAT: 
CALL "CSSERR" USING SNA-WORK-AREA 
TYPE 
LOG NO-LOG 
LOG-DATA 


LOG-DATA-SIZE 
DESCRIPTION: 


The CSSERR verb indicates to the remote program that the 
local program has detected an error. The parameters issued 
with this verb identify the conversation on which the error 
has occurred and the type of error which has been detected. 
The local LU is in send state and the remote LU in receive 
state. If the conversation was in send state when this verb 
was issued, the local LU's send buffer is flushed and the 
state does not change. 


The TYPE parameter indicates whether you are sending a 
program error (ABSEND PROG) or a service error (SVC_ERROR). 
These errors are application~-dependent. 


If the conversation is in receive or confirm state when the 
CSSERR is executed, the conversation enters send state. 


RETURN CODES: 


The application should check the return code after each verb 
is issued to determine if the call has been completed error 
free. After the execution of the CSSERR verb, the following 
combinations are possible: 


@ If SERV-REQ-COMP=Y and RETURN-B=0, the send has been 
executed successfully. 


e If the value of another field in RETURN-A is Y, the CSSDAT 
was not successful and RETURN-B contains the return code 
to indicate the reason for the error. 


The state of the conversation when you issue the CSSERR 
determines what return codes are possible. The following 
values are possible for RETURN-B, following any execution of 
the CSSERR verb: 
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Value 


0000 
0023 
0065 
0256 
0257 
0258 
0259 


0784 
1809 
1810 
1811 
1812 


Description 


OK 

Not in send, receive, or confirm state 
Invalid resource ID | 

Session unbound by host unexpectedly 
Session shutdown by host orderly 

You are timed out by SOPR command 
Resource failure, no retry--session abort due to 
unrecoverable protocol error 
ACTLU/DACTLU received 

Link failure 

ACTPU/DACTPU received 

SA (SOPR) ABORT AIF node 

SS ABORT AIF group 


In addition, if the conversation is in send state when you 
execute the CSSERR, the following return codes are possible. 


Value 


0004 
0007 
0176 
0192 
0193 
0194 
0195 
0208 
0209 
0210 
0211 
0224 
0241 
0242 
0243 


Description 


Program error--purging 

Service program error, purging 

TPN not recognized 

PIP not allowed 

PIP not specified correctly 
Security not valid 

Conversation type mismatch 

Sync level not supported by program 
Reconnect level not supported by program 
TP not available--no retry 

TP not available--retry 

ACC not valid 

Remote deallocation--ABEND program 
Remote deallocation--ABEND service 
Remote deallocation--ABEND timer 


If the conversation is in confirm state when you execute the 
CSSERR, the following return codes are possible. 


Code 


0076 


Meaning 
Invalid type specified 
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If the conversation is in receive state when you execute the 
CSSERR, the following return codes are possible. 


Code Meaning 
0076 Invalid type specified 
0176 TPN not recognized 
0192 PIP not allowed 
0193 PIP not specified correctly 
~—60194 Security not valid 
0095 Conversation type mismatch 
0208 Sync level not supported by program 
0209 Reconnect level not supported by program 
0210 TP not available--no retry 
0211 TP not available--retry 
0224 ACC not valid 
0240 Deallocate normal 


OUTPUT CONTROL WORD 


The REQ-TO-SEND-RCVD field in the OUTPUT-CONTROL-WORD 
indicates whether the remote program has issued a request 
to send notification, requesting the local program to 
enter receive state and placing itself in send state. 


5-45 GR11-02 


CSWAIT 


CSWAIT - Wait Verb 


The CSWAIT verb waits for posting to occur on any of a list 
of conversations. 


FORMAT: 


CALL "CSWAIT" USING SNA-WORK-AREAI 
| SNA-WORK-AREA2 


SNA~WORK-AREAN 
POSTED-CONV-ID 


DESCRIPTION: 


The CSWAIT verb causes the local program to suspend 
processing and wait for posting to occur on any conversation 
from a list of conversations. This verb is issued after the. 
CSPONR (Post on Receipt) verb to allow synchronous processing 
of multiple conversations. Following the CSWAIT verb, you 
must execute the CSRAW verb to access the data. If you have 
issued the CSPONR to allow the application to continue other 
program processing while waiting for data from the host, the 
CSWAIT brings you back to the conversation that has been 
posted. | _ 


Executing the CSWAIT verb does not change the state of the 
conversation. | 


RETURN CODES: 


The application should check the return code after each verb 
is issued to determine if the call has been completed error 

free. After the execution of the CSWAIT verb, the following 
combinations are possible: 


@ If SERV-REQ-COMP=Y and RETURN-B=0, the CSWAIT has been 
executed successfully. 


e If the value of another field in RETURN-A is Y, the CSWAIT 


was not successful and RETURN-B contains the return code 
to indicate the reason for the error. 
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The following values are possible for RETURN-B 


Value Description 


0000 OK 

0001 Unsuccessful 

0022 Not in receive state 

0065 Invalid resource ID (the verb parameter list 


contains an invalid resource identifier. S$B4 
contains the pointer to this ID) 


OUTPUT-CONTROL~WORD 


The CONVERSATION-POSTED parameter of the OUTPUT-CONTROL-— 
WORD indicates whether or not a conversation has been 
posted. The address of the conversation that has been 
posted appears in POSTED-CONV-ID. If you have multiple 
conversations, then this parameter contains the VPB 
address of the conversation that has been posted. 
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CSACEB - ASCII-to-EBCDIC Conversion 
The CSACEB verb call converts data from ASCII to EBCDIC. 
FORMAT: | 
CALL "CSACEB" USING SNA-WORK-AREA 

CONVERT~FROM-FIELD 
FROM-LEFT-MOST-POSITION 
CONVERT-TO-FIELD 
TO-LEFT~-MOST~POSITION 
CONVERSION-LENGTH 

DESCRIPTION: 

The CSACEB verb converts data from ASCII to EBCDIC. The 

parameters used with this verb provide the buffers containing 

the data te be converted and the converted data. 


The maximum length of data that can be converted is 32,767 
bytes. | | 


If you want to convert the data in place, specify the same 
dataname for the CONVERT-FROM FIELD and the CONVERT-TO-FIELD. 
IMPORTANT! 


Do not convert the two-byte binary length field of 
the logical record. 
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CSEBAC - EBCDIC-to-ASCII Conversion 
The CSEBAC verb converts data from EBCDIC to ASCII. 
FORMAT: 


CALL "CSEBAC" USING SNA-WORK-AREA 
CONVERT-FROM-FIELD 
FROM-LEFT-MOST-POSITION 
CONVERT=-TO-FIELD 
TO-LEFT-MOST-POSITION 
CONVERSION-LENGTH 


DESCRIPTION: 

The CSEBAC verb converts data from EBCDIC to ASCII. The 
parameters used with this verb provide the buffers containing 
the data to be converted and the converted data. 


The maximum length of data that can be converted is 32,767 
bytes. 


If you want to convert the data in place, specify the same 
Gataname for the CONVERT-FROM FIELD and the CONVERT-TO-FIELD. 


IMPORTANT ! 
Do not convert the two-byte binary length field of 
the logical record. 
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Section 6 
RESTART 


This section describes the procedures for restarting an LU 
Type 0 session that has been abnormally terminated. Topics 
include: 


@ 


Configuration Options 


- Preestablished Session Groups 
~ Reserved LUs 


Normal Termination 
Abnormal Termination 
Restart Logic 
Confirmation 

Release Time 

Message Resynchronization 


Rules for restart. 
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CONFIGURATION OPTIONS 


The application programmer has the option of allowing AIF to 
assign any available LU to a session or defining preestablished 
session groups during configuration with or without reserved 
LUs. A preestablished session group is a group of one or more 
permanent sessions that are preestablished for later use when AIF 
is brought up. 


All sessions in the group are established with one host LU 
and are preestablished using one Session Type Descriptor (STD). 
Subsequent application calls for sessions to that host LU, which 
specify the appropriate STD, cause the AIF to assign an available 
LU from this group to the calling application. 


Preestablished session groups and reserved LUS are specified 
during the configuration of AIF. 


Preestablished Session Groups 


An AIF node can be configured to contain more than one. 
preestablished session groups. If high traffic to a particular 
nost LU is anticipated, a number of permanent sessions can be 
established to reduce the overhead required to establish these 
sessions each time a SSINIT/CSINIT session call is executed. 


When an application requests a session by executing a SSINIT - 
or CSINIT session call, a session from a preestablished session 
group will be assigned if one is available. If a preestablished 
session is not available, AIF assigns an available LU to the 
application. The assigned LU then executes the procedure for 
establishing an LU-LU session on behalf of the caller. 


When an application using a preestablished session executes a 
SSTERM or CSTERM session call, AIF does not actually terminate 
the LU-LU session but makes this permanent session available for 
other SSINIT/CSINIT session call requests. 


Reserved LUs 


An LU can be reserved for special use by specifying 
RESERVED=Y in the LU entry of the configuration file. If an LU 
is reserved, an STD name must be provided. In order for an 
application to gain access to a reserved LU, the STD name 
specified with the SSINIT or CSINIT session call must be the STD 
name associated with this LU address in the configuration of the 
LU entry. 


A reserved LU can also be preestablished. Preestablishing a 
reserved LU saves the time required to establish a session when 
you execute a SSINIT or CSINIT session call. Preestablishing the 
session for a reserved LU does not aSsign it to a group. 
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NORMAL TERMINATION 


Normal termination can occur when the session is completed by 
the SSTERM or CSTERM session call or when an SOPR command is 
executed. The SOPR commands, STOP, ALTER, and SHUTDOWN, initiate 
an orderly termination to the current session. These commands do 
not cause the session to be held for restart. 


ABNORMAL TERMINATION 


Abnormal termination can occur for any of the following 
reasons: 


@® LU is deactivated. 
e Session is unbound unexpectedly. 


@® SDLC link failure (LU reactivated by the AIF node 
recovery). 


@e CICS/IMS transaction program ABEND. 


@® A DPS 6 PLUS or a DPS 6 application program issues SSTERM 
or CSTERM abnormally. 


@ An operating system $S ABORT command aborts the 
application task group. 


RESTART LOGIC 


You can restart an abnormally terminated session by executing 
a SSINIT or CSINIT session call. The parameters that you provide 
in the SSINIT or CSINIT sesSion call determine whether the call 
is being used to initiate a session or restart one. 


When you initiate a session uSing the S$SINIT or CSINIT 
session call, you should store the two-word session id 
(SCCB.SC_ SID in assembly language programs; the SESSION-ID field 
in COBOL programs). In order to restart a session after abnormal 
termination, you have to provide this session id. You also have 
to provide the most recent send and receive sequence numbers and 
the last message. In assembly language programs, these are found 
in SCCB.SC_ SQN and SCCB.SC_RSQ, respectively. In COBOL programs, 
these numbers are found in the MSG-RESYNC-SEND- SQN and 
MSG-RESYNC-RCV-SQN fields. These sequence numbers should be 
stored after each send and receive in order to have the most 
current numbers available in case of abnormal termination. 


NOTE 


The session id and the send and receive sequence 
numbers are system supplied. If a session 
terminates abnormally, you do not have access to 
ate values unless you have previously stored 
them. 
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RESTART INITIALIZATION REQUEST 


After a session has been successfully initiated, using the 
SSINIT or CSINIT session call, the application has the option of 
notifving AIF that the session should be held for restart. MThe 
application makes this request by executing the SSSI or CSSI 
session call (send interrupt) with the interrupt type ENAPRS 
(Enable Application Restart) to enable restart in the event of 
abnormal termination. 


This request is required to ensure that an application can be 
restarted. The session is not held without confirmation 
regardless of the configuration of the STD "Release on Abnormal 
Termination" parameter. 


If you decide to negate this confirmation, execute the SSSI 
or CSSI session call with the interrupt type DSAPRS (Disable 
Application Restart). 


The application must restart the abnormally terminated 
session within the time specified in the STDs "Release on | 3 
Abnormal Termination" parameter. Once the specified release time 
nas €lapsed, it is no longer possible to restart a session. If 
the application attempts to restart an abnormally terminated 
session that is not being held for restart, a return code of. 
RCRSRF (restart failure) is returned. The sense data field shows 
the exact reason for this failure. 


RELEASE TIME 

The configuration of the STD used at session initiation 
determines how long the abnormally terminated session is to be 
held for restart. The three possibilities are: 


1. If the STD "Release on Abnormal Termination" parameter is 
configured IMMEDIATE, the session is not held at all. 


2. If the STD "Release on Abnormal Termination" parameter is 
configured HOLD, the session is held indefinitely. 


3. If the STD "Release on Abnormal Termination" parameter is 
configured N(n..), the session is held for the specified 
n.. number of minutes. 


The "Release on Abnormal Termination" can be overridden by 
the use of SNA Operator (SOPR) Control commands. | 
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MESSAGE RESYNCHRONIZATION IN ASSEMBLY LANGUAGE 


If the SSINIT call successfully restarts a session, the 
application should examine the output control word in the SCCB 
(SC_OCT). 


An assembly language program should check for the following 
possible values in SCCB.SC OCT: 


1. If the output control word indicates SCRSTS, then the 
host has sent the "ready to send" message and SC_SQN and 
SC_RSQ contain the new sequence numbers for the restarted 
session. 


2. if the output control word indicates SCL6RX, then the 
last message being sent by the local program was lost, 
and the local application must retransmit the last whole 
message. 


3. If the output control word indicates SCHORX, then the 
last message being sent by the host was lost, and the 
host must retransmit its last whole message, and the 
local application must execute a receive. | 


MESSAGE RESYNCHRONIZATION IN COBOL 


If the CSINIT call successfully restarts a session, the 
application should examine the OUTPUT-CONTROL-WORD field. 


A COBOL program should check for the following percents 
values in the OUTPUT-CONTROL“WORD: 


1. If the SET-SEND-RECV-SEQ = "Y", then the host has sent 
the “ready to send" message and MSG-RESYNC-SEND-SQN and 
MSG-RESYNC-RCV-SON contain the new sequence numbers for 
the restarted session. 


2. If APPL-RESEND-REQUIRED = "YY", then the last message 
being sent by the DPS 6 or DPS 6 PLUS was lost, and the 
local application must retransmit the last whole message. 


3. If HOST-RESEND-REQUIRED = "Y", then the last message 
being sent by the host was lost, and the host must 
retransmit its last whole message, and the local 
application must execute a receive. 


RULES FOR RESTART 


When you attempt to restart a session that has abnormally 
terminated, you must restart it from the original task in which 
it was executing. The only time you may attempt to restart a 
session from a task other than the original task is when the 
application task group has been aborted. 
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If a session has abnormally terminated due to task group 
termination, the application can restart the session from any 
other group uSing the SSINIT or CSINIT session call, specifying 
RESTART and the correct session ID. If you must restart a | 
session that has been terminated in this manner, the following 
restrictions apply: | . 


1. The application cannot have any other sessions active 
when attempting to restart. 


2. The session that is restarted is given the option of 
restarting all of the aborted sessions of its session 
group. 


Figure 6-l demonstrates a task restarting its sessions. 


SESSION | 
, SESSION | 


ne | 


. SESSION 
TASK — 


85-273 


APPLICATION § | 
PROGRAM 


Figure 6-1. Session Restart 


Each of these sessions has been running in the same task. 
When one or more of the sessions has been abnormally terminated, 
the abnormally terminated sessions must be restarted from the 
Original task. The application program has the option of 
restarting each session individually. 
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Section 7 — 
SUPPORT AND 
MAINTAINABILITY 


This section discusses the role of SNA in supporting and 
maintaining the Application Interface Facility (AIF). Topics 
include the following: 


SNA Operator Services 

Maintenance Utilities 

® Communications Network Management 
~ AIF Alerts 

- AIF Maintenance Statistics. 


SNA OPERATOR SERVICES 


The control operator can use the SOPR facilities of the SNA 
Transport Facility for the following: | 


e Changing the state of an AIF LU (ALTER) 

@e Determining the status of an LU Session (STATUS) 

@e Clearing the correspondence between a local LU, a local 
application program, and the host system (ABORT, SHUTDOWN, 
STOP) . 

These commands can be entered through the SOPR menu system or 


from a command line. The SOPR commands and their arguments are 
described in detail in the SNA6 Operator's Guide (GX10). 
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MAINTENANCE UTILITIES 


The following SNA6 maintenance utilities are provided by the 
operating system (MOD 400 or HVS 6 PLUS) and aid in isolating 
problems: 


@e Trace/Software Probe Points 


AIF supports the Data Base Augmented Real-Time Tracing 
System (DARTS) utility that allows the user to take a 
Snapshot of AIF activity. The utility records specific 
events in order to aid in problem determination. 


The Trace Information Capture Specification (TICS) file 
for AIF is located in: 


~ >SID>AIF _L.TICS for LUs 
- >SID>AIF_P.TICS for PUs. 


@ SNAMAP 


AIF supports the SNAMAP utility that displays all existing 
SNA nede structures, including AiF-specific information 
and journal statistics. SNAMAP commands and operating © 
procedures are described in detail in the SNA6 Operator's 
Guide. 


e The AIF DUMP file 


If AIF detects an unrecoverable program error, it 
automatically executes SNAMAP and puts the dump file in 
>>CCD>AIF DUMP. This dump file includes all existing node 
structures for the SNA products currently being executed. 
The following sequence occurs: 


1. The application program is informed that the session 
has been aborted. The return code RCPGER is returned. 


2. SNAMAP executes an emergency dump and puts it into the 
file >>CCD>AIF DUMP. A message appears on the console 
to inform the operator. Processing continues after 
the dump is completed. | 


3. The host is directed to terminate the session. The 
affected LU then becomes available for assignment to 
other callers. 


AIF limits itself to 10 dumps for the file 

>>CCD>AIF DUMP. This file should be printed and forwarded 
to your local Honeywell representative for analysis, then 
deleted in order to conserve file space. It is 
recommended that the STARTUP.EC include directives to test 
for the existence of >>CCD>AIF_DUMP and print and delete 
its contents. 


7-2 | GR11-02 


® Event Logging 


AIF makes an entry in the SNA event log when it detects 
system or transmission errors and when a session recovers 
from an error. 


@ SNEDIT 


The SNEDIT utility allows the user to display SNA journal 
files interactively . SNEDIT allows you to enter various 
commands to specify parameters that define journals you 
wish to display. 


These utilities are described in detail in the SNA6 
Operator's Guide. 


COMMUNICATIONS NETWORK MANAGEMENT 


The Communications Network Management (CNM) Facility allows 
LU Type 0 application programs to send alerts and statistics via 
AIF to the IBM host. AlertS are unsolicited messages that inform 
the host network operator of an error. AIF creates the 
transmission headers for these messages, but the application 
program must provide the message itself. The message must be 
formatted according to the IBM formats for alerts as detailed in 
Figure 7-l. 


Maintenance statistics are solicited messages that supply 
application-dependent information, which the host requests. AIF 
creates the transmission headers for these messages, but the 
application program must provide the message itself. The format 
of the message is determined by the application. AIF alerts and 
maintenance statistics are discussed on the following pages. 


As part of the program interface, AIF allows application 
programs to alert the host network operator that a major error 
has occurred by sending an SNA alert. 


An SNA alert is used to inform the Network Communications 
Control Facility (NCCF) or Network Problem Determination 
Application (NPDA) that a problem exists on the DPS 6 or DPS 6 
PLUS side. The AIF generates an alert on behalf of the DPS 6 or 
DPS 6 PLUS application program via the SSSI (send interrupt) 
session call where the interrupt type is specified ALERT. 


The error message contents of the alert are provided by the 
application, which must create a buffer in the format which the 
IBM host can handle. AIF supplies bytes 0 through 7 and the 
remainder of the alert. Bytes 8 through n, which are supplied by 
the application program, must follow the format described in 
Figure 7-l. | 
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DESCRIPTION 


BYTE(S) 
0-2 Network services header; -x'410384'. 
3~/ CNM header 
8-11 Node identification 
Bits O-ll: Block number 
L2=13 Reserved 
14 X'40'! 
15 bits 0-3: Event type 
X'l' = Permanent error 
X'2' = Temporary error 
X'3' = Performance 
15 bits 0-3: Event type (cont.) 
X'4' = Operational/Procedure 
X'5' = Customer Applications generated 
X'6' = End user generated 
X'7' = Reserved 
X'8' = Intensive mode recording 
bits 4-7: Major cause code 
X'1l' = Hardware/microde - either 
X'2' = Software 
X'3' = Communications 
X'4' = Reserved 
X'5' = Environment 
X'6' = Removable media 
X'7' = Hardware/software - either 
X'8' = SNA logical 
X'9' = Operator: of sending message 
X'A' = Media/hardware - either 
X'B' = Explicitly hardware 
X'C' = Explicitly microde 
X'D' = SNA protocol 
X'E' = Link Level protocol 
X'F' = Undetermined 
16 Minor Cause Code 
X'O1' = Base processor 
X'02' = Service processor 
X'03' = Microde; non-customer programmable 
X'04' = Main storage 
X'O5' = DASD device 
X'06' = Printer 
X'07' = Card reader/punch 
X'08' = Tape device 
X'09' = Keyboard 
X'OA' = Selector pen 
X'OB' = Magnetic stripe reader 
X'OC' = Display/printer 
X'OD' = Display device 
X'OE' = Remote Product 
X'OF' = Internal power supply 
X'10' = I/O attached controller 
Figure 7-1. IBM Alert Format 
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DESCRIPTION 


» aa 
X'12! 
X'13' 
X'14' 
» aaa Bs Se 
X'16' 
X'17' 
X'18' 
x'19' 
X'1A' 
X'1B' 
x 1C* 
X‘*ip‘ 
X'1lE' 
X'1F' 
X'21' 
x23! 
X'24' 
X'25! 
X'26! 
X'27! 
X*28' 
X*'29' 
X*2A' 
X'2B! 
X*2C! 
xX f2p! 
X*2E° 
X'2F° 
X*30° 
X'31' 
x°32° 
pa 
X'34' 
X*35'° 
X'36' 
pase ae 
X'38' 
X'39! 
X'3A' 
X'3B' 
X*3C° 
X'3D' 
X'3E! 
X'3F' 
X'40' 
X'41! 


X'42! 


Figure 7-l 
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(cont). 


Minor Cause Code (cont.) 


COMC scanner 

COMC line adapter 

reserved 

Channel adapter 

Loop adapter 

Direct attach adapter 
Adapter 

Channel 

Link 

Link (common carrier) 

Link (customer) 

Loop 

Loop (common carrier) 

Loop (customer) 

X.21 network 

Local X.21 interface 

Local modem 

Remote modem 

Local modem interface 
Remote modem interface 
Local probe 

Remote probe 

Local probe interface 
Remote Probe Interface 
Network connection 

IBM program SCP or major appl. 
IBM application program 
IBM communication access method 
Customer application program 
IBM COMC program (T4 PU) 
IBM control program 
Remote/modem/interface product 
Line/remote modem 

SDLC data link control 

BSC data link control 

S/S data link control 
Reserved 

Power - external 

Thermal 

Reserved 

Reserved 

Reserved 

Reserved 

Reserved 

Negative SNA Response 

Gen or customize parameter 
External facility 
Component off line 


IBM Alert Format 
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BYTE(S) DESCRIPTION 


16 Minor Cause Code (cont.) 
X'43' = Component busy 


X'44° = Controiler or device 
X'45" = Local probe modem interface 
X'46' = Reserved 
X'47' = Card reader/punch or display/printer 
X'48' = Controller application program 
X'49' = Keyboard or display 
X'4A' = Storage Controller 
X'4B' = Channel or storage unit 
X'4C' = Reserved 
X'4D' = Controller 
X'4E' = Reserved 
X'4F' = Reserved 
X'50' = Reserved 
X'51' = Reserved 
X'52' = Maintenance device 
X'S3' = Maintenance device interface 
X'67' = Sensor I/O unit 
X'68' = Magnetic stripe reader/encoder 
X*69* = Check reader 
X'6A' = Document feed 
X'6B' = Coin feed 
X'6C' = Envelope depository 
X'FF' = Undetermined 
17 Reserved 
18 User action code; used by NPDA, together with 


block number, to locate the alert/event 
description on the alert displays, the proper 
recommended action display, and the proper event 
detail display. 

19 Reserved. 

After these fields, one or more of the eaitewing 

appended vectors may be included. 


TEXT VECTOR 


0 Vector length (binary) 
1 X'00' = vector type 
| 2-n Text message; up to 100 bytes of customer 


defined data 


DETAIL QUALIFIER VECTOR 
Vector length (binary) 

1 X'OD' = vector type 

2-n Detail qualifiers; information to be shown on 
the NPDA Event Detail screen 


There may be multiple detail qualifier vectors in the 
Same RU. 


Figure 7-1 (cont). IBM Alert Format 
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| BYTE(S) = DESCRIPTION 


NAME LIST VECTOR 
| 0 Vector length (binary) 
1 X'OC' = vector type ; 
2 X'02° = hierarchy name list in this vector is 
used with network names supplied by 
higher levels of CNM code. 


3 Number of entries in the name list 
| 4=n Name list; identifies non NAU failing 
components. Each entry has the following 
format: 


Byte 0: Length 
Byte 1-x: Resource name 
Byte x+l thru x+4: Resource type as follows: 


ADAP - Adapter 

ALA - Alternative line attachment 
ALS Adjacent link stations 

BSC - Binary Synchronous link 
CHAN - Channel 

COMC = Communications controller 
CPU - Central processing unit 

CTF - Customer transaction facility 
CTRL - Controller | 
DCA ~-~ Device cluster adapter 

DEV - Device 

DISK - Disk drive 

DSKT = Diskette drive 

Tocu.§ - I/O control unit 

LCTL = Local controller 

LDEV -=- Local device 

LINK = Communications link 

LOOP = Loop 

NETW - Network 


PGM - Program 
PROG =- Program 
SCF - System Control Facility 


SCU - Storage control unit 

STAT - Terminal station on loop 
TAPE - Magnetic Tape Drive 

TCU - Tape controller 

pled bg - Teletype 

USER - Human or programmed operator 
WKST - Workstation 

nnnn - Machine type designator 


| NULL VECTOR | 
| 0. X'00" = zero length; indicates end of vectors. | 


Figure 7-1 (cont). IBM Alerts Format 
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AIF Maintenance Statistics 


As part of the program interface, AIF allows Session Type 0 
programs to send maintenance statistics to the host network 
operator in response to a Request for Maintenance Statistic 
(REQMS) Type 4 made by the host. 


AIF generates a reply called Records of Formatted Maintenance 
Statistics (RECFMS Type 4) on behalf of the local application 
program via the SSSI (send interrupt) session call where the 
interrupt type is specified STATIC. 


The application must create a buffer in the format that the 
IBM host can handle. AIF supplies bytes 0 through 7 and the 
remainder of the RECFMS. Bytes 8 through n, which are supplied 
by the application program, are application-dependent and 
formatted in any way that the host program requests. 
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Appendix A 
AIF ARCHITECTURE 


The Application Interface Facility (AIF) is a general 
interprogram communications facility that applications on a DPS 
Or DPS 6 PLUS system can use to communicate with applications 
executing under the IBM host transaction processing systems 
Customer Information Control System (CICS) and Information 
Management System (IMS). The communicating programs on the DPS 
or DPS 6 PLUS are referred to aS application programs, while 
those on the host are referred to as transaction programs. 


AIF is a Structured interface. That is, AIF specifies a 
number of formatted requests called session calls for LU Type 0 
and verbs for LU Type 6.2 that the transaction program uses to 
request communication functions. These session calls equate to 
specific macrocalls within AIF. 


AIF adheres to Honeywell's SNA6 interprogram communications 
architectural principals. The architecture of AIF is shown in 
Figure A-1 and is described below. 


There are three logical subcomponents of AIF: the Physical 
Unit (PU) subcomponent, the LU subcomponent for each LU 
configured, and the monitor call handler subcomponent. 


This appendix describes each of these subcomponents and the 
modules that make up the LU subcomponent. 
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HOST 


IMS/DC 


SNA 
DPS 6 


BASELINE 


SNA ; 
ry PU 


MONITOR CALL HANDLER 


APPL1 APPL2 APPL3 APPL4 
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Figure A-l. Overall Architecture of AIF 
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Figure A-l1 shows the relationship between the different 
components and modules which comprise an active AIF session. 
DPS 6 PLUS or DPS 6 transaction programs designate LU sessions 
through the Monitor Call Handler. The protocol handler module 
Supervises the passing of calls from the control module to the 

session control module and on to the baseline. 


On the host side, transaction programs communicate with the 
baseline through the IBM subsystems CICS and IMS. 


PU SUBCOMPONENT 


The PU subcomponent acts as the executive for the AIF program 
product. The only time the PU subcomponent is active during a 
session call is during the initialization or termination when it 
Creates and terminates the LU tasks. The PU subcomponent 
interfaces to the Administrative Control System (ACS), SNA6 
Operator Services (SOPR), and the monitor call handler. PU also 
sends the ALERT and maintenance statistics and Communications 
Network Management (CNM) commands. 


LU SUBCOMPONENT 


The LU subcomponent sends and receives data on behalf of the 
application program. It interfaces to the SNA@ network via the 
baseline. The LU subcomponent is comprised of three modules: 


@ The control module 
@ The protocol handler module 
@ The session control module. 


Control Module — 


The LU control module has two main functions. It handles the 
external interfaces to the PU, the application program, or to 
transmission services; and it provides the mainloop processing 
for the LU, controlling the execution of the session control 
subroutines and the protocol handlers. 


Protocol Handler Module 


The protocol handler executes the session call subroutines on 
behalf of the session call executor. This module is responsible 
for consistent use of session calls. | 


Session Control Module 


This module provides the subroutines that define the session 
Call macros that actually interface to the SNA6 baseline. These 
subroutines are executed by protocol handlers. Subroutines are 
provided to receive, send, initiate a session, terminate a | 
seession, send interrupt (control) information, and various other 
Subroutines to support these functions. 
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MONITOR CALL HANDLER SUBCOMPONENT 


The monitor call handler is the main interface between the 
application program and the LU and PU tasks. It manages the 
intertask group communication from the user task group; and in 
general acts as the interface to the AIF services. 


When the monitor call handler receives a SSINIT or CSINIT 
session call from an application program for a session Type 0, or 
a SSALLO or CSALLO for Type 6.2, it sends an application service 
request (any session call the application passes to AIF). In 
response, AIF returns the SCCB or VPB to the PU subcomponent. 

The PU subcomponent looks for an available LU and assigns it to 
the application task. 


For the rest of the session, the monitor call handler sends 
and receives application service requests/responses via the 
control module of the LU subcomponent. This relationship is 
Shown in Figure A-2. 


AIF 
APPLICATION see 
TASK GROUP 


GROUP 


ADMINISTRATIVE 


APPLICATION CONTROL SERVICES 
PROGRAM 


PU SUBCOMPONENT 


SESSION 
CALL 


CONTROL 4 PROTOCOL 
MOOULE HANDLER 


MONITOR SESSION CONTROL 
CALL MODULE 


HANDLER 


| LU SUBCOMPONENT 
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Figure A-2. Application Service Request/Reply Handling 
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When a session call is made, the monitor call handler checks 
the status of the call and issues an application service request 
to either the PU or the LU task, aS appropriate. On the initial 
call for a session, the service request is directed to the PU. 
The monitor call handler issues service requests for subsequent 
calls to the LU. 


When the PU or the LU completes a service request, it issues 
a service reply to the monitor call handler. The LUO application 
must determine when an asynchronous call is completed, since the 
application program is not awakened until a SSWANY or CSWANY 
session call is executed following an asynchronous send or 
recelve. 


BASIC OPERATION 


ACS is the lead task in the group running AIF. At start up, 
ACS createsS and requests the PU task, which in turn, creates the 
LU tasks necessary to send and receive the data. 


In order to execute a session call, the user executes a 
session call with parameters in the application program. These 
macrocalls resolve into the session call control block and a 
monitor call. When the monitor call is executed, a monitor call 
handler processes the call in the user task group. 


The monitor call handler checks the state of the session, 
copies the user data block to a global memory block and issues an 
application service request to either the PU or LU task residing 
in the AIF task group. 
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Appendix B 
SAMPLE ASSEMBLY 
LANGUAGE PROGRAMS 


This appendix provides source listings of assembly language 
programs. These programs demonstrate the use of AIF LU Type 0 
and LU Type 6.2 for both DPS 6— and Host-initiated sessions. All 
references to the DPS 6 system also include the DPS 6 PLUS 
system. : 


Figure B-l is an AIF LU Type 0 sample program for a DPS 6- 
initiated session. Figure B-2 is an AIF LU Type 0 sample program 
for a Host-initiated session. Figure B-3 shows subroutines that 
can be linked by both program. 


Figure B-4 is an AIF LU Type 6.2 sample program for a DPS 6 
initiated session. Figure B-5 is an AIF LU Type 6.2 sample 
program for a Host initiated session. Figure B-6 are subroutines 
that can be linked by both programs. : 
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TITLE TR_01,'10/22/85' SAMPLE #1 LU 0 DPS 6 INITIATED SESSION 


LIBM '>>LDD>MACROS>MAC USER’ 


LIBM - OS_LIB 
LIBM EXEC_LIB 
* 
XDEF AP_SCB,AP_SBF 
XLOC GTMEM, PRTSCB 
SSSCCB 
$SAIRC 
* 
ADLO TEXT A'ADLO' REMOTE APPLICATION NAME 
BUF_S2 EQU 141 SIZE OF RECEIVE/SEND BUFFER | 
RAN EQU 2 RAN = REMOTE APPLICATION NAME LENGTH 
AP_SCB EQU 0 VPB 
AP_SBF EQU AP_SCB+SC_SIZ SEND BUFFER 
AP_RBF EQU AP_SBF+BUF_SZ RECEIVE BUFFER 
AP CWl EQU AP_RBF+BUF_SZ APPLICATION CONTROL WORD 1 
AP_STK EQU AP_CW1+1 STACK SPACE 
AP_SIZ EQU = AP _STK+100 APPLICATION WORK SIZE 
* : 
= DEFINITON FOR CONTROL WORD (AP_CW1) 
* 
CW_RST EQU Z*8000' RESTART ENABLED 
* 
TR_O1 RESV 0 
* 
- , UPON ENTRY: 
* | 
START RESV 0 
* 
* . : 
LDV SR6 ,0 
LDR SR7 ,=AP_SIZ AMOUNT OF MEMORY TO GET 
LDV $R5,0 SET MEMORY TO ZEROS 
LNJ- $B5 ,GTMEM GET MEMORY 
BEZ $R1 , SETREG IF NO ERROR SET UP REGISTERS 
* ERROR | 
SETREG RESV 0 
x 
LAB $B7,$B4.AP_SIZ $B7 TO TOP OF STACK 
LAB $B6 ,SB4 $B6 WORK SPACE POINTER 
* THIS TEST EXECUTES FOUR MACROS IN THIS SEQUENCE: 


+ 


Figure B-l1. Sample Assembly Language Program for LU Type 0 
for DPS 6-Initiated Session 
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KREKEKKKKEEKEKEEKREEEEKKKREEREKRKEKEERKEKEEEKEREKEEKERKKEREEEEEREKEREKKEKEKEEEKEKEKERE 
* INITIALIZE SESSION 
* * 
KREKKEKEEKKEKEKREKEREKEKERKEKEKEKEEEREKKEEKKEEKKEKREEEEKEEKKKEEKEREEKEKREEKEKKKKEK 
* 

SSINIT | ,'SMPLAIF','AO6CICS2','BB',SYNC,NO RESTART 
INIT RESV 0 

LB =$R1,=(RCSCNL+RCABRT) WAS SESSION ABORT OR REQUEST CANCEL? 

BBT TERM IF TRUE END 


* ELSE CONTINUE PROCESSING 
;. 
* 
REEEKEEEEKEKEKEKREREKEREEEKKEEKREKKEKREKEKEEEKEKEREKEEKEREREKEREKEEEEKEEKKKKKKKKKRKKES 
* SEND ENABLE RESTART 
* TRY TO ENABLE RESTART FUNCTIONALITY FOR THIS SESSION. IF THIS SESSION IS 
* NOT RESTARTABLE, AN ERROR MESSAGE WILL APPEAR AND PROCESSING WILL CONTINUE. * 
* IF THIS HAPPENS, AND YOU WOULD LIKE TO ENABLE RESTART, YOU WILL HAVE TO 
* UPDATE YOUR AIF CONFIGURATION FILE (AIF NODE). 
RERREKEKEREKKEKEKEEKEKEEKERRERREREKERKERKEKEREEREKRAEKREREREKEEKERKEKEEREEEEKEEEKEEKEEE 
* 

LBT SB6.AP_CWl,=CW_RST SET INDICATOR FOR RESTART 

SSSI +++ ENAPRS 
: | 

LB =$R1,=RCABRT WAS IT ABAND OR ? 

BBT QUIT IF TRUE REPORT ERROR AND END 

LB =SR1,=RCSCNL ELSE WAS IT REQUEST CANCELED 

BBF OUTMSG IF FALSE REQUEST DATA FROM TERM 

SUSOUT INRSTRT,=NRSL, L ELSE OUTPUT RESTART ERROR 

LBF SB6.AP_CW1,=CW_RST RESET RESTART INDICATOR 
* AND CONTINUE PROCESSING 
/ 
* 
KRAREKEKEKEEEERARERRERRAERKRRREKEKREKEEEEKKEKREEKEEKREEERKERRAEEEKARAKERREREREREKEKERRERRERE 
* * 
* OUTPUT DATA TO USER OUT | * 
e & 
* PLEASE ENTER DATA TO BE SENT TO THE HOST OR "END" TO END THE SESSION * 


RRAKKKRKRRARKAERRAEKRRRERAERRRAARKKERREEERKRREKARERRELRERARERAEEEEREREBRERERRERRRAEERE 
4 


OUTMSG  RESV 0 


SUSOUT tINPDAT,=INPL,L 
& 


i 


Figure B-1 (cont). Sample Assembly Language Program for LU 
Type 0 for DPS 6-Initiated Session 
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RRKKEKAEKEREEEEEEERREEREREKEKEEEKEKEREKERAERREKRERKEKREKEKKERKEERRRREKRKKRKRKRKKREKEKKEKRE 
* GET DATA FROM USER IN | t 
& x 
RHEKREEKKEEREEKKEREREEREREEEKREEEEEEKKEREREREKREKEEREREREREREEKEKRERKEREKEKKEERERKEKEE 
* 


GETCHR  RESY 0 

LAB $B4,$B6.AP_SBF SET $B4 TO ADDR OF SEND BUFFER 

LAB $B4,$B4.RAN SET UP LENGTH FIELD FOR RECORD 

LDR $R6,=(BUF_SZ-RAN)*2 GET RECORD SIZE IN BYTES 
* 

SUSIN 
* 

LDR SR5,='EN! CHECK TO SEE IF END WAS ENTERED 

CMR $R5,SB4 __ IS IT END 2??? 

BE TERMO IF TRUE TERMINATE THE SESSION 

LDR $R5 ,=(BUF_SZ-RAN) *2 ELSE GET MAXIUM LENGTH OF SEND 
BUFFER 

CMR SR5 ,=$R6 WERE 0 CHAR ENTERED ?? 

BNE >CACL IF TRUE REPORT IT 

SUSOUT § 1NOCHAR,=NOL,L OUPUT ERROR MSG 

B >GETCHR GET NEXT INPUT 
CACL SUB SR5 ,=$R6 ELSE CACULATE LL FIELD 
* TO THE RECORD LENGTH 

ADD SR5 ,=RAN*2 ADD RAN TO INPUT LENGTH 

STR $R5,$B6.(AP_SCB+SC_DLG) STORE IT IN SEND BUFFER LENGTH 
* 

LAB $B2,ADLO RAN TO BE STORED IN SEND BUFFER 

LDV $R2,0 _ OFFSET TO MOVE 

LAB $B3 ,$B6.AP_SBF ADDR OF SEND BUFFER 

LDV SR3 ,0 OFFSET TO MOVE TO 

LDV $R6,RAN*2 # OF CHARS TO MOVE 

MMM | 
* 
Dee rickauicauesewrecucctea viaaweesia an sacabal cea aaa ac eeeaane ee need ede 
* TRANSLATE DATA FROM ASCII TO EBCDIC * 
* THIS IS AN EXAMPLE OF THE TRANSLATE CALL. IT WILL TRANSLATE FROM ASCII * 
* FROM $B2.$R2 TO $B4.$R4 EBCDIC ( THIS EXAMPLE WILL TRANSLATE IN PLACE). * 
* $R6 WILL CONTAIN THE # OF CHAR TO TRANSLATE * 
KRREKKKEKHEEERERKEEKEKEEEKKREREKEEEREEKEEERKEEREREEKEEEREKEEEKEEKEKKKKKKREKKRKRRKREKRAEEE 
* 

LAB $B2,$B4.-RAN $SB2 = ADDR FROM BUFFER 

LDV $R2,0 $R2 = INDEX INTO FROM BUFFER 

LAB $B4,$B4.-RAN SB4 = ADDR TO BUFFER 

LDV $R4,0 $R4 = INDEX INTO TO BUFFER 

LDR SR6 ,=SR5 SR6 = # OF CHARS TO TRANSLATE 

$SACEB 


Figure B-l (cont). Sample Assembly Language Program for LU 
Type 0 for DPS 6-Initiated Session 
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RREEKEKKEEKEKREKEKEEKREEEREKEEEEKEERKEKEKEEEEEEKEREREEREEKEREREREKEREKREKEKEKEKEKEKEREKEKE 


S END DATA T O T HE HOST * 
APPLICATION DATA IS STARTING AT POSITION #4 IN THE SEND BUFFER, POSITION 

O-3 ARE RESERVED FOR THE TRANSACTION NAME ( THIS IS AN HOST APPLICATION x 

RESTRICTION) , DUE TO THE FACT THAT THE HOST APPLICATION SENDS AN END * 

BRACKET, TERMINATING THE APPLICATION TO APPLICATION TRANSACTION ( NOTE :* 

* 

* 


( YOUR LU TO LU SESSION IS STILL ACTIVE ) 
KKK KIRKE KKK EE KEKE KEE ERE REE EEE EKER EEE KEE EE EEE EERE EERE EEE ERE EREEEREREKEEEE 


+ + + + + HH FH 


wy) 
be 
o, 


RESV 0 

LAB $B4,$B6.AP_SCB SB4 == VPB POINTER 

LAB $B2,$B6.AP_SBF SB2 == ADDR OF SEND BUFFER 
SSSEND 1=SB2,,L,SYNC, REPLY,MCMP 

LB =S$R1,=(RCABRT+RCSCNL) WAS IT ABORT OR REQUEST CANCEL ? 
BBT TERM IF TRUE ERROR 


KKKEKKKKEKKEKEEKEERREEKKREKEKEKEREKEKEKERKEEEKEKEEEKRKEEEREKKEEEKKEEEEEKKEKEKKEEKEKREKEKKEKEK 


RECEIVE DATA F ROM HOST * 
DATA UNTIL THE BUFFER IS FULL, OR END OF DATA IS INDICATED. BUFFER SIZE * 


IS SPECIFIED BYE DATA BUFFER LENGTH (SC_DLG) i 
KKK KEKE KEE EKER ER EEE KEE KEE EEE KEE REE EEE RR EKER ERE KE EEREREEEEREREEEEEEEKEREKEEKE 
* 


ee F SN FH 


RECV RESV 0 
LAB $B2,$B6.AP_RBF+1 S$B2 = ADDR OF RECEIVE BUFFER 
SSRECV ,=SB2,=BUF_SZ,L,SYNC,MSG 
LB =$R1,=(RCABRT+RCSCNL) WAS IT ABORT OR REQUEST CANCEL ? 
BBT TERM IF TRUE ERROR 

* ; 
LB $B4.SC_OCT,=(SCRBOM+SCREOM) ELSE WAS BEGIN CHAIN/END CHAIN 
BBT TRANS IF TRUE GO TRANSLATE 

r : 

RECV1 RESV 0 
LB $B4.SC_OCT,=SCRROQD ELSE WAS A DEFINITE RESP REQ ? 
BBT SRSP IF TRUE SEND +/~- RESPONSE 

* - 

RECV2 RESV 0 : . 
LB SB4.SC_OCT,=SCRWRP ELSE WAS CHANGE DIR RECEIVED ? 
BBT OUTMSG | IF TRUE GO SEND DATA © 

* 
LB SB4.SC_OCT,=SCRLST ELSE WAS IT END BRACKET ? 
BBF RECERR IF FALSE OUTPUT ERROR 
B OUTMSG ELSE GET MORE DATA 

* 

RECERR RESV 0 
SUSOUT !INVOCT,=IOL,L ELSE OUTPUT ERROR 
B OUTMSG CONTINUE PROCESSING 

* 

{ 


Figure B-l1 (cont). Sample Assembly Language Program for LU 
Type 0 for DPS 6-Initiated Session 
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HAEKEKKEKEKEKEKEKEEKKEEKEKAKEREKREEEKKEEKEKEERKEKRKREKKKERKKKKAKKAKKAKAKKEKEKEREKKREKSE 


* | * 
x COMPARE TO SEE IF SEND BUFFER EQUALS RECEIVE BUFFER .  * 
a * 


KEKE REE KEKE KEKE ERE ERR KR KRERK ERE REREEERRKEEREREREKKRKRRKKKKKKKK KKK 
4 


TRANS RESV 0 


LAB $B2,$B6.(AP_SBF+RAN) $B2 = ADDR OF SEND BUFFER +RAN OFFSET 
LAB $B3,$B6.AP_RBF+1 $B3 = ADDR OF RECEIVE BUFFER 
LDR $R3,$B4.SC_ADL SR3 = # OF CHARS TO TRANSLATE 

| ADV $R3,-1 SUBTRACT 1 FOR BLZ 

* ; 

GETNXT BL $R3 , TRANS] IF BUFFER EQUAL DISPLAY THEM 

x 
LDH SR1,$B2.$R3 GET CHAR FROM SEND BUFFER 
CMH $R1,$B3.$R3 COMPARE WITH CHAR FROM RECEIVE BUFFER 
ADV SR3 ,-1 | | SUBTRACT 1 FROM INDEX 
BE GETNXT IF EQUAL GET NEXT CHAR 
LBT $B4.SC_ICT,=SCSNEG ELSE SET BIT FOR NEG RESPONSE 
LBF $B4.SC_ICT,=SCSRSP RESET POSSITIVE RESPONSE 
SUSOUT § _!BADDAT,=BADDL, L REPORT ERROR 
B NXTRCV 


* 
KRARKEKKKEKKEEEKEKREKEEKEKKEEREKKEEKKEEKEREEERKEREEERERERRERKEKEKERREKEKREKKKKKKKKKKKESE 


= TRANSLATE DATA FROM EBCDTIC T O AS CII 

THIS IS AN EXAMPLE OF THE TRANSLATE CALL. IT WILL TRANSLATE FROM EBCDIC . 

FROM $B2.$R2 TO $B4.$R4 ASCII ( THIS EXAMPLE WILL TRANSLATE IN PLACE ) . if 

SR6 WILL CONTAIN THE Or CHAR TO TRANSLATE | ad 
* 
* 


+e + + 


SC_ADL = ACTUAL # OF CHARS RECEIVED FROM REMOTE TRANSACTION 
HH RRR REE REEREREERREERRE KR IREREEREEEEKERRE RRR ERE IKEKRERRERE KR EREREEREREEEEEE 


* 


TRANSL RESV. 0 
, LBT SB4.SC_ICT,=SCSRSP SET POSITIVE RESPONSE 

LBF $B4.SC_ICT,=SCSNEG RESET NEGITIVE RESPONSE 
LDR SR6,$B4.SC_ADL SR6 = # OF CHAR TO TRANSLATE 
LAB $B2,$B6.AP_RBF+1 SB2 = ADDR FROM BUFFER 
LDV SR2,0 $R2 = INDEX INTO FROM BUFFER 
LAB $B4,$B2 $B4 = ADDR TO BUFFER 
LDV SR4,0 SR4 = INDEX INTO TO BUFFER 
SSEBAC 

* 
LDR SR6 ,$B6.SC_ADL GET # OF CHARS TO DISPLAY 

~ ADV SR6,1 ADJUST FOR SLEW CHAR COUNT 

LAB $B4,$B4.-1 ADJUST BUFFER ADDR FOR SLEW 
LDR SR1,=' A!’ SLEW CHAR TO OUTPUT 
STR $R1,$B4 STORE IT IN THE BUFFER 
SUSOUT rR 

NXTRCV LAB $B4,$B6.AP_SCB $B4 = ADDR OF VPB 
B RECV1 GET NEXT INPUT 

* 

/ 


Figure B-l (cont). Sample Assembly Language Program for LU 
Type 0 for DPS 6-Initiated Session 
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SRSP RESV 0 
* 


SSSRSP , SYNC, ,=0 


LB =$R1,=(RCABRT+RCSCNL) WAS IT ABORT OR CANCEL ? 
BBT TERM IF TRUE ERROR 
B RECV2 ELSE CONTINUE INPUT 


* 


REKKKKKEKKEKEKEKEKEKEKEKEEKEKEKEKEKKEKEKEKEKKKEKEEKEKEKEKEKEKEREEEREKEKERREEKREREKREEE 


* TERMINATE THE SESSION * 
* TERMINATE THE SESSION NORMALLY, IF AN ERROR OCCURS, THEN AN ABNORMAL - 
* TERMINATE WILL OCCURE (TO FREE UP THE LU ) * 


KREKEKEKREKKEKKEREKREEKEKEEEKEKREKREKEKKEEKREKREKEEEKEEEEREEKKEEEREKREEEEKEEKEKEEEKEEKREKEKEKE 
* 
* 


TERM RESV 0 
LNJ SB5 , PRTSCB DISPLAY VERB CALL AND ERROR 
LB =$R1,=RCABRT IS IT SESSION ABORTED ? 
BBF TERMO IF FALSE TERMINATE SESSION 
LB SB6.AP_CWl,=CW_RST ELSE SEE IF RESTART ENABLED 
BBF QUIT IF NOT ENABLED QUIT 
LBF SB6.AP_CWl,=CW_RST RESET RESTART CONDITION 
SSINIT rrr, SYNC, RESTART 
B INIT GO CHECK RETURN CODE 
TERMO RESV 0 ELSE TERMINATE THE SESSION 
LAB $B4,$B6.AP_SCB SB4 = ADDR OF THE SCCB 
SSTERM , NORM 
LB =$R1,=(RCABRT+RCSCMP) WAS IT ABORT OR REQUEST COMPLETE? 
BBT QUIT IF TRUE END PROGRAM 
* ELSE TERMINATE SESSION ABNORMALLY 
SSTERM , ABNORM 
B QUIT 
* 
A 
& 


Figure B-l1 (cont). Sample Assembly Language Program for LU 
Type 0 for DPS 6-Initiated Session 


B-7 - GR11-02 


0 
$B4 , $B6 SET $B4 = WORK SPACE 


‘APLEASE ENTER DATA TO BE SENT TO HOST, OR TYPE "END" TO 


($-INPDAT) *2 

"APORMAT ERROR:RECEIVE BUFFER DOES NOT EQUAL SEND BUFFER' 
($-BADDAT) *2 | 

‘ANO DATA HAS BEEN ENTERED, PLEASE ENTER DATA OR END TO 


THE SESSION' 


QUIT RESV 
LAB 
SRMEM 
STRMRQ 

® 

* 

INPDAT TEXT 

END THE SESSION’ 

® 

INPL EQU 

* 

BADDAT TEXT 

k 

BADDL EQU 

* 

NOCHAR TEXT 

_ TERMINATE 

® 

NOL EQU 

* 

INVOCT TEXT 

* IOL EQU 

* 

NRSTRT ‘TEXT 

CONTINUES' 

NRSL EQU 

* 
END 


($-NOCHAR) *2 


‘AINVALID OUTPUT CONTROL WORD RECEIVED' 
($-INVOCT) *2 3 


‘ARESTART NOT POSSIBLE FOR THIS SESSION,BUT PROCESS 
($-NRSTRT) *2 
TR_01,START END 


Figure B-1 (cont). Sample Assembly Language Program for LU 


Type 0 for DPS 6-Initiated Session 


B-8 GR11-02 


TITLE TR_02,'10/22/85' SAMPLE #2 LU 0 HOST INITIATED SESSION 


LIBM '>>LDD>MACROS>MAC_USER' 


LIBM OS_LIB 

LIBM EXEC _LIB 
* 

XDEF AP_SCB,AP_ SBF 

XLOC GTMEM, PRTSCB 

SSSCCB 

SSAIRC 
* 
ADLH TEXT A‘ ADLH! REMOTE APPLICATION NAME 
BUF_SZ EQU 141 SIZE OF RECEIVE/SEND BUFFER 
RAN EQU 2 RAN = REMOTE APPLICATION NAME LENGTH 


AP SCB EQU 
AP SBF EQU 
AP RBF EQU 
AP STK EQU 


0 


_AP_SCB+SC_SIZ 


AP_SBF+BUF_SZ 
AP_RBF+BUF_SZ 


VPB 

SEND BUFFER 
RECEIVE BUFFER 
STACK SPACE 


AP SIZ EQU AP_STK+100_ APPLICATION WORK SIZE 
* 
& 
TR_02 RESV 0 
* 
% 
* UPON ENTRY: 
* 
START RESV 0 
* 
te 
LDV SR6 ,0 
LDR SR7,=AP_SIZ AMOUNT OF MEMORY TO GET 
LDV SR5 ,0 SET MEMORY TO ZEROS 
LNJ SB5 , GTMEM GET MEMORY 
BEZ $R1,SETREG IF NO ERROR SET UP REGISTERS 
* £R ROR 
SETREG RESV 0 
5 
LAB $B7,SB4.AP_ SIZ $B7 TO TOP OF STACK 
LAB $B6 ,$B4 $B6 WORK SPACE POINTER 
* THIS TEST EXECUTES FOUR MACROS IN THIS SEQUENCE: 


% 


Figure B-2. Sample Assembly Language Program for LU Type 0 


for Host-Initiated Session 
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Pe ee ee Se eee eee ee See eT eT eee TTT Te TT CT TT TT 


PO LL FOR SESS ION 
CHECK TO SEE IF ANY LU ASSOCIATED WITH THE APPLICATION PROGRAM'S TASK GROUP * 
- HAS BEEN ATTACHED BY THE REMOTE PROGRAM, IF AN LU IS NOT PRESENT, THE id 
APPLICATION WILL CONTINDE TO POLL UNTIL AN LU IS PRESENT bs 
* 
* 


+ + e FH 


POLL ( WILL NOT ESTABLISH A HOST INITIATED SESSION ) 
HK HK KKK KEKE RHR RER EK RR E ERE EERE EE RRE RE REE REE ER REE ERERERREREEEEEEEREKKES 


* 


POLL RESV 0 
SSPOLL _,'SMPLAIF’,'BB' 
LB =$R1,=(RCSCNL+RCABRT) WAS SESSION ABORT OR REQUEST CANCEL? 
BBT TERM IF TRUE END 
AND SR1 ,=RCMASK ESLE MASK OUT INDICATORS 
CMR SR1 ,=RMNOAT NO LU TO ATTACH? 
BE POLL IF TRUE POLL AGAIN 
CMR SRL ,=RMLUAT ELSE IS THERE AN LU TO ATTACH? 
BNE TERM IF FALSE ERROR 
* ELSE CONTINUE PROCESSING 
/ 
fi | 
KREKKEEKKEREKEREEKEKEKEEEEEEKREKEREREKEEKEEEKREKREEREERKERRREEREKKKERKEKKEKKRKKRRKKREK 
* | ACCEPT A HOST SESSION 
* * 


KRRKEKKRKEEKEKEKKEKEKREKRKEEKEKEKEEEEEEEEERRAREERKERRERREKEEEERAEKEREKKEEEKKKKKEKKERREKKERKEK 
* 


SSACPT ,'SMPLAIF','BB' 


* 


LB =$R1,=(RCABRT+RCSCNL) WAS IT ABAND OR REQUEST CANCEL? 

BBT QUIT IF TRUE REPORT ERROR AND END 
* | | | 
/ . 
HK KKK KK KIRKE REE KER EER REI ERK ERE KEE REE IKE KER EERE KEK ER EE RREEKERREKRRERKEEREREKE 
. RECEIVE DATA FROM HOST sl 
. ‘WHEN A SESSION IS A HOST INITIATED SESSION THE DPS6 SIDE OF THE SESSION * 
* WILL ALWAYS BE IN RECEIVE STATE. AT THIS POINT THE APPLICATION WILL - 
* RECEIVE A CHANGE DIRECTION INDICATOR, AND THE APPLICATION NAME (SC_ADL WILL * 
* EQUAL 4 ). THIS IS APPLICATION DEPENDENT, TO PUT THE DPS6 SIDE INTO * 
* SEND STATE ( DATA WILL NOT BE RECEIVED AT THIS TIME). * 
KKK KEKE KKK ERE ERER EEE EEK EERE REE REREEREERERREKEREREEEKEEREREEEEEEKE 
* 

LAB $B2,5B6.AP_RBF $B2 = ADDR OF RECEIVE BUFFER 

SSRECV ,=SB2,=BUF_ SZ,L,SYNC,MSG . 

LB =$R1 , = (RCABRT+RCSCNL) WAS IT ABORT OR REQUEST CANCEL 4 

BBT TERM IF TRUE ERROR 
t , , 

LB $B4.SC_OCT,=SCRWRP ELSE WAS CHANGE DIR RECEIVED ? 

BBT OUTMSG | IF TRUE GO SEND DATA 
* 

SUSOUT 1INVOCT,=IOL,L ELSE OUTPUT ERROR 

B TERM TERMINATE THE SESSION 
* 
/ 
* 


Figure B-2 (cont). Sample Assembly Language Program for LU 
Type 0 for Host-Initiated Session 
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REEKKKEKKEKEKERKEKEREKKEEKREKREREEKEREEREKEEERKREEREEEREREEEEEEEEREKREKREEEEKEEEEERRKEEKEER 


* * 
* OUTPUT DATA T O USER OUT * 
* * 
* PLEASE ENTER DATA TO BE SENT TO THE HOST OR "END" TO END THE SESSION * 


KREKKEKEKEKKKKEKEEKEKEKEEEREKKEREKEEEEEREKKEEKEEREERKEEEREREKEKREREKREKEEKEEEREREKKKEKE 
& 


OUTMSG RESV 0 
SUSOUT {INPDAT,=INPL,L 


KREEKKEEREKEREKEEEREEKEERERREEREREREEEEKRRKEEKEEREKERRERKREEKKEREREKKEEKEERRERREE 

GET DATA FROM USER IN 

t 

KREEKEEEEEKEREKREKEKEKREEEEEKEEEKEEEEEEEKEKEKEEEEEEEEKEEREREKEEEKEKEREKREKEREREEEKEKE 
* 


a re 


GETCHR RESV 0 
LAB $B4,$B6.AP_SBF SET S$B4 TO ADDR OF SEND BUFFER 
LAB SB4,S$B4.RAN SET UP LENGTH FIELD FOR RECORD 
LDR SR6 ,= (BUF_SZ-RAN) *2 GET RECORD SIZE IN BYTES 
* 
SUSIN 
* 
LDR SR5,='EN! CHECK TO SEE IF END WAS ENTERED 
CMR SR5,$B4 IS IT END ??? 
BE TERMO IF TRUE TERMINATE THE SESSION 
LDR $R5,=(BUF_SZ-RAN)*2 ELSE GET MAX LENGTH OF SEND BUFFER 
CMR SR5 ,=SR6 WERE 0 CHAR ENTERED ?? 
BNE >CACL IF TRUE REPORT IT 
suSOUT i! NOCHAR,=NOL,L OUPUT ERROR MSG 
B >GETCHR GET NEXT INPUT 
CACL SUB SR5 ,=SR6 ELSE CACULATE LL FIELD 
* TO THE RECORD LENGTH 
ADD SR5 ,=RAN*2 ADD RAN TO INPUT LENGTH 
STR $R5 ,$B6.(AP_SCB+SC_DLG) STORE IN THE SEND BUFFER LENGTH 
cd , 
LAB SB2 ,ADLH RAN TO BE STORED IN SEND BUFFER 
LDV $R2 ,0 OFFSET TO MOVE 
LAB $B3,SB6.AP_ SBF ADDR OF SEND BUFFER 
LDV SR3 ,0 OFFSET TO MOVE TO 
LDV SR6 , RAN*2 # OF CHARS TO MOVE 
MMM 
& 
/ 


Figure B-2 (cont). Sample Assembly Language Program for LU 
Type 0 for Host-Initiated Session 
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HR RRR RRR IRR IR ER RI RRR RRA ERR ERR ERR ERR ERR RETR REE EER RRR EERE R ERR ERE 
~ TRANSLATE DATA FROM ASCII TO EBCDIC * 


* THIS IS AN EXAMPLE OF THE TRANSLATE CALL. IT WILL TRANSLATE FROM ASCII * 
* FROM $B2.$5R2 TO $B4.S5R4 EBCDIC ( THIS EXAMPLE WILL TRANSLATE IN PLACE ) . . 
* S$R6 WILL CONTAIN THE # OF CHAR TO TRANSLATE * 


KRRKEKEKEKKKEKEEKKEKEEKEEEKEEKEKEEEEKKEEEEKKEKEEEREKEKERRREREEKKREKEKEKEKKKKKKEKKERKKEKREK 
* 


LAB SB2 ,$B4.-RAN SB2 = ADDR FROM BUFFER 

LDV $R2 ,0 $R2 = INDEX INTO FROM BUFFER 

LAB SB4 ,$B2 SB4 = ADDR TO BUFFER 

LDV SR4,0 $R4 = INDEX INTO TO BUFFER 

LDR SR6 ,=$R5 SR6 = # OF CHARS TO TRANSLATE 

SSACEB : 
* 
vs 
KHER ERE ERIE RRR EKER ERE RRR EERIE RRR EERIE IRE RRR RE REE IKKE EEE RREREEKEEREEEEEEE 
ad S EN D DATA T O THE HOST > 
* APPLICATION DATA IS STARTING AT POSITION #4 IN THE SEND BUFFER, POSITION = 
* Q-3 ARE RESERVED FOR THE TRANSACTION NAME ( THIS IS AN HOST APPLICATION . 
* RESTRICTION). = 
HH HK KKK IK IRIE ERR ERE RRR IRE KERRIER ERR EKER EERE REE EERE KEKE EE EREEEEEEEEEKEEEESE 
* 
SEND RESV 0 

LAB $B4,$B6.AP_SCB SB4 == VPB POINTER 

LAB $B2,$B6.AP_SBF SB2 == ADDR OF SEND BUFFER 

SSSEND ,=9B2,9B4.SC_DLG,L, SYNC, REPLY ,MCMP 

LB =SR1,=(RCABRT+RCSCNL) WAS IT ABORT OR REQUEST CANCEL ? 


 BBT TERM IF TRUE ERROR 
* | | 


REEKKRKEKKEKEEKEEEEKEKEKREKEREEEEEEREKREREREREERERKEREEKEEREREKEKREKKEKREKRREKERREKKEEREEE 


* | : RECEIVE DATA FROM HOST | * 
* DATA UNTIL THE BUFFER IS FULL, OR END OF DATA IS INDICATED. BUFFER SIZE * 
* 


* IS SPECIFIED BYE DATA BUFFER LENGTH (SC_DLG) 
HK KEKERERR KERRIER EERE REE REE REE RHR ERE REE REE REE ERR REE EKRKEEEREREEREKEEKEERERKEREEE 


* 


RECV RESV 0 | 
LAB $B2,$B6.AP_RBF $B2 = ADDR OF RECEIVE BUFFER 
SSRECV ,=$B2,=BUF_SZ,L,SYNC,MSG 
LB =$R1,=(RCABRT+RCSCNL) WAS IT ABORT OR REQUEST CANCEL ? 
BBT TERM IF TRUE ERROR 
; | 
LB $B4.SC_OCT,=(SCRBOM+SCREOM) ELSE WAS BEGIN CHAIN/END CHAIN 
BBT TRANS IF TRUE GO TRANSLATE 
* 
RECV1 RESV 0 
LB SB4.SC_OCT,=SCRWRP ELSE WAS CHANGE DIR RECEIVED? 
BBT OUTMSG IF TRUE GO SEND DATA 


Figure B-2 (cont). Sample Assembly Language Program for LU 
| Type 0 for Host-Initiated Session 
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LB $B4.SC_OCT,=SCRLST ELSE WAS IT END BRACKET ? 


BBF RECERR IF FALSE OUTPUT ERROR 

B OUTMSG ELSE GET MORE DATA 
* 
RECERR _—-RESV 0 

SUSOUT LINVOCT,=IOL,L ELSE OUTPUT ERROR 

B OUTMSG CONTINUE PROCESSING 
* 
/ 
KEKAKEEEKEAKKEREREEKEREKREKEKKRKEKRERREKEEKEEEEREREEREREREAEEEREKEEEKEKREEEKEEEERRKEERKEER 
* t 
* COMPARE TO SEE IF SEND BUFFER EQUALS RECEIVE BUFFER 
* w 


KREEKKEERKEKKERRERREREKEEKRREKEERERAERRERARERERERARERREREEKEEREEREAKEHEEEEREKKEEREEKEKEEKEEEEK 
* 


TRANS RESV 0 
LAB $B2,$B6.AP_SBF SB2 = ADDR OF SEND BUFFER 
LAB $B3,$B6.AP_RBF $B3 = ADDR OF RECEIVE BUFFER 
LDR - SR3 ,$B4.SC_ADL SR3 = @ OF CHARS TO TRANSLATE 
SUB $R3 ,=1 SUBTRACT 1 FOR BLZ 
GETNXT BLZ SR3 , TRANS] IF BUFFER EQUAL DISPLAY THEM 
x S 
LDH SR1,$B2.$R3 GET CHAR FROM SEND BUFFER 
CMH SR1,$B3.$R3 COMPARE WITH CHAR FROM RECEIVE BUFFER 
ADV SR3 ,~1 SUBTRACT 1 FROM INDEX 
BE GETNXT IF EQUAL GET NEXT CHAR 
SUSOUT !BADDAT,=BADDL, L ELSE REPORT ERROR 
. B SNDERR SEND ERROR SIGNAL TO REMOTE 
B OUTMSG 


* 

KKK KEKE EERE EEE K EEE EKER EERE EEE REE EE EERE EEE EEE ERE EEE ERE EKEEEEREEKEREKKE 

% TRANSLATE DATA FROM EBCDIC TO ASCII * 

THIS IS AN EXAMPLE OF THE TRANSLATE CALL. IT WILL TRANSLATE FROM EBCDIC * 

FROM $B2.$R2 TO $B4.S$R4 ASCII ( THIS EXAMPLE WILL TRANSLATE IN PLACE ) . * 
_t 
* 


ee he & 


$R6 WILL CONTAIN THE # OF CHAR TO TRANSLATE 


SC_ADL = ACTUAL # OF CHARS RECEIVED FROM REMOTE TRANSACTION 
HHEEKRARARREREEREERRREEREEREEREREEEEEEERERERE REE REEEAREKRERRREREEREERHEEEKEEKKEKRKE 


& 


TRANS1 RESV 0 
LDR SR6 , $B4.SC_ADL SR6 = ¢ OF CHAR TO TRANSLATE 
LAB $B2,5B6.(AP_RBF+RAN) S$B2 = ADDR FROM BUFFER 
LDV SR2,0 SR2 = INDEX INTO FROM BUFFER 
LAB $B4 ,$B2 SB4 = ADDR TO BUFFER 
LDV SR4 ,0 SR4 = INDEX INTO TO BUFFER 
SUB SR6 ,=RAN*2 SUBTRACT OUT LL FIELD 
SSEBAC 


Figure B-2 (cont). Sample Assembly Language Program for LU 
Type 0 for Host-Initiated Session 
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LDR SR6,$B6.SC_ADL GET # OF CHARS TO DISPLAY 


SUB SR6 ,=RAN SUBTRACT OUT RAN FIELD 

LAB $B4,$B4.~-(RAN-1) ADJUST BUFFER ADDR FOR SLEW 
LDR SR1,=' A’ SLEW CHAR TO OUTPUT 

STR $R1,$B4 STORE IT IN THE BUFFER 
susOUT r/R 

LAB $B4,$B6.AP_SCB $B4 = ADDR OF VPB 

B RECV1 | | GET NEXT INPUT 


* 


RREKKEKKEKKEKEEEEREEKEEREKERKERREERERRKEREERERREKREKEEKKEEREEREREKKRKKKKKRKRKRERKKRKRKKAKEK 


if TERMINATE THE SESSION = 
* TERMINATE THE SESSION NORMALLY, IF AN ERROR OCCURS, THEN AN ABNORMAL - 
* TERMINATE WILL OCCURE (TO FREE UP THE LU ) * 


EREKKEKEKKKEKEKEKEKREEKEEEKEREKEREEKEEEEEKEKREREREKEREEREREERREREEKEKEKEKKEKEKEEKERRERE 


TERM RESV 0 
LNJ SB5 , PRTSCB DISPLAY VERB CALL AND ERROR 
LB =$R1,=RCABRT IS If SESSION ABORTED ? 
BBT QUIT IF TRUE END 
TERMO RESV 0 ELSE TERMINATE THE SESSION 
LAB $B4,$B6.AP_SCB $B4 = ADDR OF THE SCCB 
SSTERM , NORM 
LB =S$R1L,=(RCABRT+RCSCMP) WAS IT ABORT OR REQUEST COMPLETE ? 
BBT QUIT IF TRUE END PROGRAM 
* | ELSE TERMINATE THE SESSION 
ABNORMALLY 
SSTERM , ABNORM 
BO QUIT 
* 7 i 
QUIT RESV 0 | 
| LAB SB4,SB6 SET $B4 = WORK SPACE 
$RMEM | _ : 
STRMRQ 
* 
* 
INPDAT TEXT "APLEASE ENTER DATA TO BE SENT TO HOST, OR TYPE "END" TO 
END THE SESSION ' 
* 
INPL — EQU ($-INPDAT) *2 
* 
BADDAT TEXT 'AFORMAT ERROR: RECEIVE BUFFER DOES NOT EQUAL SEND BUFFER ' 
x 
- BADDL EQU = ($=BADDAT) *2 
* 
NOCHAR TEXT '‘ANO DATA HAS BEEN ENTERED, PLEASE ENTER DATA OR END TO 
TERMINATE THE SESSION ' 
* 
NOL EQU ($-NOCHAR) *2 | 
EBREC TEXT "AEND BRACKET RECEIVED,SESSION WILL BE TERMINATED ' 
EBL EQU ($-EBREC) *2 
® 
INVOCT TEXT 'AINVALID OUTPUT CONTROL WORD RECEIVED ' 
IOL EQU (S-INVOCT) *2 
* 
END TR_02,START END 


Figure B-2 (cont). Sample Assembly Language Program for LU 
Type 0 for Host-Initiated Session 
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TITLE TR_SUB,'85011511' SPI TAP SUBROUTINS. 
LIBM '>>LDD>MACROS>MAC_ USER' 


LIBM EXEC_LIB 
LIBM OS LIB 
SSSCCB 
/ 
® 
XVAL AP _SCB,AP_SBF 
* 
XDEF GTMEM 
GTMEM RESV 0 


* 
& 


*THIS IS THE GET MEMORY SUBROUTINE. 


THE SIZE OF THE BLOCK OF MEMORY AND ITS SPACE INITIALIZATION VALUE 
ARE PROVIDED BY THE CALLER OF THIS SUBROUTINE. 


S$R6/SR7 -> THE SIZE OF THE BLOCK OF MEMORY TO BE OBTAINED 
SR5 -> THE SPACE INTIALIZATION VALUE FOR THE MEMORY BLOCK 


UPON EXIT FROM THIS SUBROUTINE, THE MEMORY BLOCK'S ADDRESS AND SIZE 
OR IF THERE WAS A PROBLEM, THE ERROR CODE ARE RETURNED TO THE CALLER. 


$B4 -> ADDRESS OF THE MEMORY BLOCK 
S$R7 -> SIZE OF THE MEMORY BLOCK 
SR1 -> ERROR CODE 


+ ¢ %& 6 He + HH HF He ES HF GH HF H H 


SGMEM 


CHECK FOR ERROR CODE RETURN FROM MACRO CALL 


& 


BEZ SRL, >+8C IF NO ERROR ON THE GET MEM, CONTINUE 
- UNABLE TO GET THE BLOCK OF MEMORY, RETURN WITH THE ERROR CODE IN §$R1l 


SA RESV 0 
te 


JMP SB5 RETURN TO THE CALLER 


* INITIALIZE THE BLOCK OBTAINED WITH THE PROVIDED VALUE (5$R5) 
te 


CLRIT RESV 0 
$C RESV 0 
LDR $R2,=5R7 INIT, THE INDEX WITH THE SIZE OF TH 


LDB $SB2 ,=$B4 MUST USE Bl, B2, OR B3 FOR B-REL.+INDEX 


Figure B-3. Subroutines for LU Type 0 Assembly 
Language Programs 
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SD 


+e ee % HX. H oF 


> 
2) 
2) 
H 
H 


ASCTi 


STRASC 


/* 
/ 


PRTSCB 


OPCFND 


SA 


Figure B-3 (cont). 


RESV 


STR 
BGZ 


B 


END OF LOOP, 


- THE BLOCK INITIALIZATION LOOP 
0 


STORE THE PROPER VALUE IN THE NEXT BLOCK 


SR5 ,$B2 .-$R2 

$R2,>-S$D THE INDEX IS ALSO THE NUMBER OF LOCATION 
BLOCK IS INTITIALIZED 

>-SA RETURN TO THE CALLER WITH THE BLOCK 


CONVERT 1 HEX WORD TO 4 ASCII BYTES 


SUSOUT 


LAB 
LDR 
LDB 
JMP 


WORD TO CONVERT 
OFFSET INTO MEMORY TO STORE CONVERTED VALUE 
BASE MEMORY ADDR OT STORE CONVERTED VALUE 

# OF CHARS TO STORE 


$ 

SR2,3 

SR6 ,0 

SR7 ,=16 
$R6,=X'30' 
SR6 ,=X'003A' 
>STRASC 

$R6 ,7 , 
$R6 f $B3 e-SR3 
$R2,>ASCI1 
SB5 


PRTSCB 
0 
SB5 7~$B7 


$R2,$B4.SC_OPC 


=$R2,=Z°F000' 
$B2,OPCTBL 
$R2,TBLGTH 

$B3 ,$B6.AP_SBF 
SR3 ,0 
SR6 , TBLGTH 


SR7 ,$B4.SC_RCD 
SR3 ,12 
$B5 , ASCII 


=$B3 ,=TBLGTH+2 
$B4,SB6.AP_SCB 
$R1,$B4.SC_RCD 
SB5 ,+$B7 

SB5 


# OF BYTES TO CONVERT -1 


ADD ASCII BIAS 

IS IT A THROUGH F ? 
IF NOT STORE IT 
ADD ALPHA OFFSET 
STORE STRING 


RETURN TO CALLER 


SAVE RETURN ADDR > 

GET OP CODE OF VERB WITH ERROR 

CHANGE HIGH ORDER NIBBLE TO 0 
$B2 = TABLE TO SEARCH 
SR2 = OFFSET INTO TABLE 
$B3 = ADDR OF TO BUFFER 
$R3 = OFFSET INTO BUFFER 
SR6 = # OF BYTES TO MOVE 


GET RETURN CODE 
OFFSET INTO BUFFER TO STORE RCD 
CONVERT AND STORE ASCII RETURN CODE 


RESET $B4 TO SCB 

RESET $R1 TO RETURN CODE 
RESTORE RETURN ADDR 
RETURN TO CALLER 


Subroutines for LU Type 0 Assembly 


Language Programs 
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* OP CODE TABLE 

OPCTBL RESV 
TEXT 

TBLGTH EQU 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 


END 


0 

‘ASSINIT : 
($-OPCTBL) *2 
‘ASSTERM : 
"ASSSEND . 
"ASSRECV ‘ 
"ASSSI , 
"ASSRI : 
"ASSCASR . 
"ASSWANY : 
"ASSTEST : 


TR_SUB 


Figure B-3 (cont). Subroutines for LU 
Language Programs 


Type 0 Assembly 


GR11-02 


TITLE VR_01,'10/22/85' SAMPLE #1 LU 6.2 DPS 6 INITIATED SESSION 


+ + 


LIBM '>>LDD>MACROS>MAC_USER' 


LIBM CS _LIB 
LIBM EXEC_LIB 
* 
XDEF AP_VPB,AP_SBF 
XLOC GTMEM, PRTVRB 
SSVPB 
SSAIVR 
* 
BUF_SZ EQU | 141 SIZE OF RECEIVE/SEND BUFFER 
LL EQU 1 LENGTH OF THE LL FIELD 
* | LL = 
AP _VPB EQU 0 VPB 
AP_ SBF EQU AP_VPB+VP_SIZ SEND BUFFER 
AP_RBF EQU AP_SBF+BUF_SZ RECEIVE BUFFER 
AP_STK EQU AP_RBF+BUF_SZ STACK SPACE 
AP SIZ EQU AP_STK+100— APPLICATION WORK SIZE 
* Pa 
* 
VR_01 - RESV 0 
* 
* 
* UPON ENTRY: 
. 
START RESV 0 
* 
* 
LDV | SR6 ,0 
LDR $R7 ,=AP_SIZ | AMOUNT OF MEMORY TO GET 
LDV SR5 ,0 SET MEMORY TO ZEROS 
LNJ SB5 ,GTMEM GET MEMORY 
BEZ SR1,SETREG IF NO ERROR SET UP REGISTERS 
* &F R R OR | 
SETREG RESV 0 
* 
LAB SB7, SB4. AP_SIZ SB7 TO TOP OF STACK 
LAB SB6 ,$B4 | SB6 WORK SPACE POINTER 
* THIS TEST EXECUTES FOUR MACROS IN THIS SEQUENCE: 
* 
{ 
* 


Figure B-4. Sample Assembly Language Program for LU se A 6.2 
for DPS 6-Initiated Session 
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RHEEKEKKEEKEKKEEKEEEKEERERKEKEKKEREREKEKE KEE EERE KERKEKEREEKEKEKEEKEE 
* ALLOCATE THE CONVERSATION * 
* * 
KRKKKKEKEEEEKEKEEEEKEKEEEREEEEEKEEKEKEKEEEEREEEKEREKKEEREKEEKEEKEKEEKKEEEEKEKREEKKKREK 
* 


SSALLO ,'SMPLAIF' , *AO6CICS2' ,=A'ADL6', 'AA', AVAIL, CONFIRM 


* 

LB =$R1,=(VRABND+VRSCNL) WAS IT ABAND OR REQUEST CANCEL ? 

BBT QUIT IF TRUE REPORT ERROR AND END 
‘ 
RK KR RE EEE ERR REE EERE REE REE EE REE EKER EERE ERE EKEEEEEEREREEREEEEREEE 
* FLUSH THE LU' S&S SEND BUFFER = 
* FLUSH THE LOCAL LU'S SEND BUFFER,CAUSING THE ALLOCATE OF THE CONVERSATION sd 
* TO BE ESTABLISHED. THIS COMMAND IS OPTIONAL, IF IT IS NOT USED THE . 


* COMMAND WILL BE BUFFERED UNTIL THE PREPARE TO RECEIVE IS ISSUED IN THE APPL* 
HHA KKK KEKE EE KER ERE ERE EEE EERE EKER EEE EKER ER EEEE EERE EEE EEE EKER REE KEEEEEKE 


* 


SSFLSH 

LB =SR1,=(VRABND+VRSCNL) WAS IT ABAND OR REQUEST CANCEL ? 

BBT QUIT IF TRUE REPORT ERROR AND END 
* 
ELT OTIC COREE See COLT ae Tete e CORE eS Pen re nme Tweet 
# * 
* OUTPUT DATA T0 USER OUT * 
¥ R 
* PLEASE ENTER DATA TO BE SENT TO THE HOST OR "END" TO END THE CONVERSATION * 


KHKAKKEKEEKKEKEKEEEKEEEEKEEREREEEEEEEEEKEEKEEEEEEEKEEEEEEEKRERREKREKEEEKREKERERKEKEEKEKE 


& 
OUTMSG RESV 0 
SUSOUT lINPDAT p= INPL,L 
# 
/ 


Figure B-4 (cont). Sample Assembly Language Program for LU 
Type 6.2 for DPS 6-Initiated Session 
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KKK KK KEKE REE ER EERE REE KER ERE EE REE RE REE IR EERE EERE EKER EEE EEREREKEE KEKE AE 
- GET DATA FROM USER IN | . 
* | * 
RREKREKK EEE EEE EEEEEE RAE L EERE KEE KERR ER REE RE ERE RRR EREEKEREKEEEKEKEREKEREREEEKREES 
2 | 


GETCHR RESV 0 | 
LAB $B4,$B6.AP_ SBF SET $B4 TO ADDR OF SEND BUFFER 
LAB SB4,$B4.LL SET UP LENGTH FIELD FOR RECORD 
! LDR SR6 ,=(BUF_SZ-LL) *2 GET RECORD SIZE IN BYTES 
* 
SUSIN 
* 
LDR SR5 ,='EN' CHECK TO SEE IF END WAS ENTERED 
CMR $SR5,$B4 | IS IT END ??? 
BE DEALO IF TRUE DEALLOCATE THE CONVERSATION 
LDR SR5 ,=(BUF_SZ-LL) *2 ELSE GET MAX LENGTH OF SEND BUFFER 
CMR SR5 ,=SR6 WERE 0 CHAR ENTERED ?? 
BNE >CACL | . IF TRUE REPORT IT 
SUSOUT !NOCHAR, =NOL,L OUPUT ERROR MSG 
B >GETCHR GET NEXT INPUT 
CACL SUB SRS ,=$R6 ELSE CACULATE LL FIELD 
ADD SR5 ,=LL*2 ADD THE LENGTH OF THE LL FIELD 
r | TO THE RECORD LENGTH 
STR SR5 ,$B4.-LL STORE IT IN THE SEND BUFFER 
* 
/ 


HHI RIK IRE RRR IRE RRR RIKI IR IRE IKE ER EI IIIT RIKI KRENEK EERE EERE EE 
. TRANSLATE DATA FROM ASCII TO EBCDIC . 


* THIS IS AN EXAMPLE OF THE TRANSLATE CALL. IT WILL TRANSLATE FROM ASCII © * 
* FROM $B2.$R2 TO $B4.$R4 EBCDIC ( THIS EXAMPLE WILL TRANSLATE IN PLACE ) . ™ 
* $R6 WILL CONTAIN THE # OF CHAR TO TRANSLATE 7 oe 


FOI III III IGG IOI CGI IIIT CCITT IIIT TOTTI IIA Tk 


* 
* 


LAB. SB2,$B4 : ‘$p2 = ADDR FROM BUFFER 

LDV : $R2,0 $R2 = INDEX INTO FROM BUFFER 
. $B4 = ADDR TO BUFFER 

LDV $R4,0 | $R4 = INDEX INTO TO BUFFER 

LDR SR6 ,=$R5 7 SR6 = # OF CHARS TO TRANSLATE 

SUB SR6 ,=LL*2 SUBTRACT OUT LL FIELD 

SSACEB | 


Figure B-4 (cont). Sample Assembly Language Program for LU 
Type 6.2 for DPS 6- Initiated Session 
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RERKKAEKRERAEEKEKKEEERKEKEEAKEKEKEEKEKEKEKEKEEEREEEREEKREKREKEEEREKEKKEEEKREKEEREKEEKES 


ig SEND DATA T O THE HOST . 
* * 
KKKKEKEEREKEEKEKEEKREREEEKE REE EEE REKEREEE REE EERE ERE REEKEEEKEREKKEEREKEKEKEREREEE 
* 


LAB $B4,$B6.AP_VPB SB4 == VPB POINTER 

LAB $B2,$B6.AP SBF $B2 == ADDR OF SEND BUFFER 

SSSDAT ,=S$B2,$B6.AP_SBF 

LB =S$R1,=(VRABND+VRSCNL) WAS IT ABAND OR REQUEST CANCEL ? 

BBT DEAL IF TRUE. ERROR 
% 
/ 
KRREEKEKKKEKEKEKEKEKEKKKEKREREKKEKEEKREREEKEKREEEKEEEEKEKEEEKEKEKREEKEKREREKREKEKEEKKEKKEKEKEK 
* PREPARE TO RECEIVE 
* THIS COMMAND WILL CHANGE THE CONVERSATION STATE FROM SEND, TO RECEIVE, AND * 
* FLUSH (TRANSMIT) THE LOCAL LU'S SEND BUFFER. * 
* THIS COMMAND IS OPTIONAL, AND THE SAME RESULT COULD OF BEEN OPTAINED BY * 
* A SSRAW ( RECIEVE AND WAIT). THE LOCK OPTION BEING USED (LONG) SPECIFIES * 
* RETURN CONTROL TO THE LOCAL PROGRAM AFTER DATA AND AN ACKNOWLEDGEMENT IS * 
* RECEIVED FROM THE REMOTE TRANSACTION, * 
RERKKEKEKKEKEEEKREREKEKRERERERREKEKEREEEKKEEEEKEEEEEEEEREEREEEEEEEEEEKREEERKEEEERKEKEEEKKEEE 
® 

SSPTOR ,F LUSH, LONG 

LB =SR]1,=(VRABND+VRSCNL) WAS IT ABAND OR REQUEST CANCEL ? 

BBT DEAL IF TRUE ERROR 
* 
/ 


Figure B-4 (cont). Sample Assembly Language Program for LU 
Type 6.2 for DPS 6-Initiated Session 
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TSE RERERESSEEEEREEEELESSESSAE RE RE RRR EER RER REESE SE SESE LASSE RAR ERLESL ERE SERS ELAR ERE LSS SY 


+e + ee eS 


* RECEIVE AND WAIT * 
* THIS COMMAND WILL CHANGE YOUR CONVERSATION STATE TO RECEIVE , IF YOU ARE * 
* NOT IN RECEIVE STATE, AND THEN PLUSH ITS SEND BUFFER. THE LU THEN WAITS * 
* FOR INFORMATION TO ARRIVE, OR RECEIVES THE DATA WITHOUT WAITING IF ITIS * 
* CURRENTLY AVAILABLE. THIS RECEIVE SPECIFIES BUFFER, WHICH WILL RECEIVE * 
* DATA UNTIL THE BUFFER IS FULL, OR END OF DATA IS INDICATED. BUFFER SIZE * 
* IS SPECIFIED BYE DATA BUFFER LENGTH (VP_DLG) * 
KKK KKK IEEE REE EERE EERE REE REEREEREREEEEEREEREREREREKRERKKRRKKKKKKKKE 
* 
RAW RESV 0 | 
LAB $B2,S$B6.AP_RBF $B2 = ADDR OF RECEIVE BUFFER 
SSRAW ,=$B2,=BUF_SZ,BUFFER 
LB =$R1 ,= (VRABND+VRSCNL) WAS IT ABAND OR REQUEST CANCEL ? 
BRT DEAL IF TRUE ERROR 
* 
LDR $R2,$B4.VP_WAR ELSE GET THE WAT RECEIVED FIELD 
CMR $R2,=VBRDAT IF DATA RECEIVED TRANSLATE IT 
BE TRANS 
CMR $R2 ,=VBRCSN ELSE WAS IT A CONFIRM WITH SEND ? 
BNE >CHK1 IF TRUE EXECUTE A COMFIRMED.- 
LNJ $B5 ,CONFMD (SEND STATE ) 
B OUTMSG GO BACK TO TERMINAL FOR MORE DATA 
CHK1 CMR $R2 ,=VBRSND ELSE WAS IT A REQUEST TO SEND 
BE OUTMSG IF TRUE OUTPUT PROMPT 
CMR $R2 ,=VBRCDA ELSE WAS CONFIRM DEALOCATE? 
BNE >CHK2 IF TRUE EXECUTE CONFIRMED 
LNJ SB5 , CONFMD (RESET STATE) 
| B QUIT | EXIT APPLICATION 
CHK2 CMR $R2 ,=VBRCNF | ELSE WAS IT CONFIRM ? 
BNE CHK3 | 3 IF TRUE EXECUTE CONFIRMED 
LNJ $B5 , CONFMD | (STATE DOES NOT CHANGE) 
BO RAW GOTO NEXT RECEIVE 
CHK3 SUSOUT I1BADWHT,=WHTL, L | ELSE REPORT ERROR & CONTINUE 
B SNDERR | 
PES SESESER AEE LE LER ES ELALLASLE LE RE SEES ALAR ERR ELERE SEER EERE SE LEER AES ESE SLE LEE SE RES LES S 
* 
COMPARE TO SEE IF SEND BUFFER EQUALS RECEIVE BUFFER * 
* 
RHRAKKKEKEKEKEKEKREREKEEEREEREREREREREEEREERRERERERREEKEARKEKKKKKKEKRKRAKRRKARKKKRKRRRKES 
TRANS RESV 0 
LAB $B2,$B6.AP_SBF $B2 = ADDR OF SEND BUFFER 
LAB SB3 ,$B6.AP_RBF _ $B3 = ADDR OF RECEIVE BUFFER 
LDR $R3 ,$B4.VP_ADL $R3 = # OF CHARS TO TRANSLATE 
_ SUB SR3 ,=1 SUBTRACT 1 FOR BLZ 
GETNXT BLZ $R3, TRANS] IF BUFFER EQUAL DISPLAY THEM 
®& : 


Figure B-4 (cont). Sample Assembly Language Program for LU 


Type 6.2 for DPS 6-Initiated Session 
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LDH SR1,$B2.$R3 GET CHAR FROM SEND BUFFER 


CMH $R1,$B3.$R3 COMPARE WITH CHAR FROM RECEIVE BUFFER 
ADV $R3 ,-1 SUBTRACT 1 FROM INDEX 

BE GETNXT IF EQUAL GET NEXT CHAR 

SUSOUT !BADDAT,=BADDL, L ELSE REPORT ERROR 

B SNDERR SEND ERROR SIGNAL TO REMOTE 


* 
RRKEACKERAAAEAAKRKKKKEAEEAEEREREKRKEEEEEKAKEKEKEEEEAEKEKEEEHEEEEKEKEEKEKREKEREKEREKKEKEKKKEKKEKEKKE 


* TRANSLATE DATA FROM 2-BoG DT ¢ T O ASCII * 
THIS IS AN EXAMPLE OF THE TRANSLATE CALL. IT WILL TRANSLATE FROM EBCDIC * 
FROM S$B2.$R2 TO $B4.SR4 ASCII ( THIS EXAMPLE WILL TRANSLATE IN PLACE ) . - 
$R6 WILL CONTAIN THE # OF CHAR TO TRANSLATE = 
* 
* 


* + & 


VP_ADL = ACTUAL # OF CHARS RECEIVED FROM REMOTE TRANSACTION 
KHER KEE EKER EERE ERE KER EE EEE EERE EEE REE EKER EEE KEE EEK EEK EEE KEEREKREEKEEKES 


* 


TRANS] RESV 0 
LDR SR6 ,$B4.VP_ADL SR6 = # OF CHAR TO TRANSLATE 
LAB $B2,$B6.(AP_RBF+LL) $B2 = ADDR FROM BUFFER 
LDV SR2,0 $R2 = INDEX INTO FROM BUFFER 
LAB SB4,$B2 $B4 = ADDR TO BUFFER 
LDV SR4,0 $R4 = INDEX INTO TO BUFFER 
SUB SR6 ,=LL*2 SUBTRACT OUT LL FIELD 
SSEBAC 
* 
LDR SR6 , $B6.VP_ADL GET # OF CHARS TO DISPLAY 
SUB $R6 ,=LL SUBTRACT OUT LL FIELD 
LAB $B4,$B4.-LL ADJUST BUFFER ADDR FOR SLEW 
LDR SR1,=' A SLEW CHAR TO OUTPUT 
STR SR1,$B4 STORE IT IN THE BUFFER 
SUSOUT oR 
LAB $B4,SB6.AP_VPB SB4 = ADDR OF VPB 
B RAW GET NEXT INPUT 
P 
Upecmeuagueceewnhend cand wen veniawek Uekececuesed ceaeaaeieeie a wuGee eet 
* DEALLOCATE THE CONVERSATION t 
* DEALLOCATE THE CONVERSATION NORMALLY AND FLUSH THE LOCAL LU'S SEND BUFFER * 
* IF THE DEALLOCATE NORMAL IS NOT HONORED, AN ABNORMAL DEALLOCATE TYPE = * 
* PROGRAM ERROR WILL EXECUTE, FORCING THE CONVERSATION TO DEALLOCATE 
KREKEAEKREREREEERETEREREEREEEEREAREEEEREREREREREEREREREREERREKREEEREBRBREERAERREERERKEEE 
B 
4 
DEA RESV 0 
LNJ SB5 , PRTVRB DISPLAY VERB CALL AND ERROR 
LB =$R1 ,=VRABND IS If CONVERSATION ABEND ? 
BBT QUIT IF TRUE END 
DEALO RESV 0 _ ELSE DEALLOCATE THE CONVERSATION 
LAB SB4,S$B6.AP_VPB SB4 = ADDR OF THE VPB 
$SDEAL ,»FLUSH,NO_LOG,, : 
LB =$R1,=(VRABND+VRSCMP) WAS IT ABAND OR REQUEST COMPLETE ? 
, BBT QUIT IF TRUE END PROGRAM | 
* ELSE DEALOCATE ABNORMALLY 
* _ (PROGRAM ERROR) 
SSDEAL »PROG_AB,NO_LOG,, 
B QUIT 


Figure B-4 (cont). Sample Assembly Language Program for LU 
Type 6.2 for DPS 6-Initiated Session 
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Tx SeSEELESERSRAESRRESE LESSER EARS ARSE RAE EEA SARS SARA REL AS REE SEER REL SRE ASRS SLE SASS E SS 


* SEND ERROR TO REMOTE * 
* SEND AN ERROR TO THE REMOTE. THE CONVERSATION STATE WILL CHANGE FROM ot 
* RECEIVE TO SEND STATE, AND THE SEND BUFFER WILL NOT BE FLUSHED. * 
REBATE EKEKKEKKKEEKKEEREE EREEEKREKEREREKEEKEEEREKRR EKER REKKEKKKKRRRKKRKRRKERE 
* 
SNDERR — RESV 0 

LAB $B4,SB6.AP_VPB $B4 = ADDR OF VPB 

SSSERR ,PROG,NO LOG, 

LB =$R1,=(VRABND+VRSCNL) WAS IT ABAND OR REQUEST CANCEL ? 

BBT DEAL IF TRUE ERROR 
* 

B OUTMSG ELSE RECEIVE NEXT 
* 
/ | 
PERERESE LEAL ELLE SLES ER EERE AS AEE AEA ER SAS ERE REALE RERARERESREAER RARE SLR AER AR EEE REA ESLER ER AL SLES SS 2 
* * 
* SEND CONFIRMED TO REMOTE * 
* * 


RKEKKRREKEKEEEREREEEKERKERKEERRAEKEEKEEKERERERREKEKERREREKREREKREKEEEEKKARAERKKKKKEE 


* 


Figure B-4 (cont). 


0 
=$R1,=(VRABND+VRSCNL) WAS IT ABAND OR REQUEST CANCEL ? 
DEAL IF TRUE ERROR 
SB5 ELSE RETURN TO CALLER 
0 - | | 
 $B4,$B6_ SET $B4 = WORK SPACE 


"APLEASE ENTER DATA TO BE SENT TO HOST, OR TYPE "END" TO 


(S-INPDAT) *2 

"AFORMAT ERROR: RECEIVE BUFFER DOES NOT EQUAL SEND BUFFER ' 
($-BADDAT) *2 

"AUNEXPECTED WHAT RECEIVED FIELD' 

($-BADWHT) *2 

‘ANO DATA HAS BEEN ENTERED, PLEASE ENTER DATA OR END TO 


THE CONVERSATION' 


($-NOCHAR) *2 
VR_01 END 


CONFMD RESV 
SSCNFD 
LB 
BBT 
JMP 

* 

/ 

* 

QUIT RESV 
LAB 
SRMEM 
STRMRQ 

* 

INPDAT TEXT 

END THE CONVERSATION ' 

* 

INPL EQU 

& 

BADDAT TEXT 

* 

BADDL EQU 

* 3 é 

BADWHT #§£MQTEXT 

* 

- WHTL EQU 

* | 

NOCHAR TEXT 

DEALOCATE 

* 

NOL EQU 
END 


Sample Assembly Language Program for LU 
Type 6.2 for DPS 6-Initiated Session 
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_ Bh emRAeereunecgsupatc auaROREIA Reon nanc inane gnnmee a ee 


TITLE VR_02,'10/22/85' SAMPLE #2 LU 6.2 HOST INITIATED SESSION 


*» 


LIBM '>>LDD>MACROS>MAC_USER' 
LIBM OS LIB 
LIBM EXEC_LIB 
*& 
XLOC GTMEM 
XDEF AP_VPB,AP_SBF 
SSVPB 
SSAIVR 
w 
BUF_SZ EQU 141 SIZE OF RECEIVE/SEND BUFFER 
LL EQU 1 LENGTH OF THE LL FIELD 
* LL = 
AP_VPB EQU 0 VPB 
AP_SBF EQU AP VPB+VP_SIZ SEND BUFFER 
AP_RBF EQU AP_SBF+BUF_SZ RECEIVE BUFFER 
AP_STK EQU AP _RBF+BUF_ SZ STACK SPACE 
AP SIZ EQU AP_STK+100— APPLICATION WORK SIZE 
& 
& 
VR_02 RESV 0 
® 
& 
* UPON ENTRY: 
*& 
START RESV 0 
x 
* 
LDV SR6 ,0 
LDR $R7 ,=AP_SIZ AMOUNT OF MEMORY TO GET 
LDV SR5 ,0 SET MEMORY TO ZEROS 
LNJ SB5 ,GTMEM GET MEMORY 
BEZ SR1 , SETREG IF NO ERROR SET UP REGISTERS 
* ERROR 
SETREG RESV 0 
& e 
LAB $B7 ,$B4.AP_SIZ SB7 TO TOP OF STACK 
LAB SB6 ,$SB4 SB6 WORK SPACE POINTER 
* THIS TEST EXECUTES FOUR MACROS IN THIS SEQUENCE: 
® 
/ 
& 


Figure B-5. Sample Assembly Language Program for LU Type 6.2 
for Host-Initiated Session 
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KEKKEKKEKKEEKHEEKREKKEKEKEEKEKKEKKEEEKERKEEEKKEKKEKEKREKEKKREREKEKREEEKKEKKKKEKKKKKKKKKKKKEKE 
* ATTACHED THE CONVERSATION | * 
* 2 * 
TSE REESREERERARSASEAEESAEASER SESE ASRESAEEEAEEESEASEESEEEREERSREEERSESESEAAESEEEESESE EEE AEE SSE SESS 
* 


SSATCH , SMPLAIF’ ,° AA® ,CONF IRM 
* 
LB =$R1,=VRABND WAS IT ABAND 
BBT QUIT IF TRUE REPORT ERROR AND END 
LB =5R1 ,=VRSCNL ELSE WAS IT REQUEST CANCELLED ? 
BBF RAW IF FALSE PREFORM A SSRAW 
AND SR1 ,=VRMASK ELSE MASK OUT RETURN CODE 
CMR $R1,=VRSLNS COMPARE IS MISMATCH SYNC LEVELS? 
BNE QUIT IF NOT EQUAL QUIT 
SUSOUT IMISMSL,=MISL,/L ELSE ISSUE MISMATCH ERROR 
B QUIT EXIT APPLICATION 


REKEKEKKEKEKKEKEEEKEEKREKKEKEKKEEREEEREEREKEEEEEEKEEREEREEKREEEKRKEARKKKKKKKKEKEKEKEEEK 
*& 


OUTPUT DATA TO USER OUT * 
* 


PLEASE ENTER DATA TO BE SENT TO THE HOST OR "END" TO END THE CONVERSATION * 
HK KEKE KERR KKK EK ERE REE KERRIER EKER ERE REIKI KEKE RE KEE EERE EKER EERE EER EEEEEKEKRER 
* 


+ + & + EN 


OUTMSG RESV 0 

SUSOUT 1 INPDAT,=INPL,L 
*& 
Oe ee ae ee ee ee ae 
* | GET DATA FROM USER IN * 
* * 


KEK HERE HEE EREEEKE ERE EERE EEE ER KEEEEERREKRERREKREEEREEKREREEEKREEEEEREKKRKEKKER 
* . , 


GETCHR RESV =—_—O 7 
| LAB $B4,$B6.AP_ SB SET $B4 TO ADDR OF SEND BUFFER 
LAB $B4,$B4.LL SET UF LENGTH FIELD FOR RECORD 
LDR SR6 ,=(BUF_SZ-LL)*2 GET RECORD SIZE IN BYTES 
* 
SUSIN 
* 
LDR SR5 ,='°EN! CHECK TO SEE IF END WAS ENTERED 
CMR $R5 ,SB4 IS IT END ??? 
BE DEAL IF TRUE DEALLOCATE THE CONVERSATION 
LDR $R5,=(BUF_SZ-LL)*2 | ELSE GET MAXIUM LENGTH OF SEND BUFFER 
CMR SR5 ,=S$R6 WERE 0 CHAR ENTERED ?? 
BNE >CACL IF TRUE REPORT IT 
$USOUT !NOCHAR, =NOL,L OUPUT ERROR MSG 
B >GETCHR | GET NEXT INPUT 
CACL SUB SR5 ,=SR6 ELSE CACULATE LL FIELD 
ADD S$R5 ,=LL*2 | ADD THE LENGTH OF THE LL FIELD 
* TO THE RECORD LENGTH 
STR $R5,$B4.-LL STORE IT IN THE SEND BUFFER 


Figure B-5 (cont). Sample Assembly Language Program for LU 
Type 6.2 for Host-Initiated Session 
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KHER KKK EEK ERE EEE EEK EKER KEKE ERE RE REE RREREEEEE EEE EERE RERKREREREEREEEEREEKKES 
TRANSLATE DATA FROM ASCII TO EBCDIC * 


+ eS F 


* THIS IS AN EXAMPLE OF THE TRANSLATE CALL. IT WILL TRANSLATE FROM ASCII = 
* FROM $B2.$R2 TO $B4.$R4 EBCDIC ( THIS EXAMPLE WILL TRANSLATE IN PLACE ) . = 
* $R6 WILL CONTAIN THE # OF CHAR TO TRANSLATE * 


KKEKEKKEEKEEKEREEKKEKEKEKEEEKEEEEEKEEKEEKEEEEEKEEEKEEKEEKREREEKEREEKEKEKEREREEKEE 
* 
LAB SB2 ,SB4 SB2 
LDV SR2,0 SR2 


ADDR FROM BUFFER 
INDEX INTO FROM BUFFER 
ADDR TO BUFFER 


* 
~{p 
w 
rs 
Hannu nu 


LDV $R4,0 SR4 INDEX INTO TO BUFFER 
LDR SR6 ,=SR5 SR6 # OF CHARS TO TRANSLATE 
SUB SR6 ,=LL*2 SUBTRACT OUT LL FIELD 

SSACEB 


SEND DATA TO THE HOST . 
* 


* 
HEREKKEEKEKEEKREKREKEEEREKERREREEEEREKEEREKEEREEEEEEEREEEREEKEREEKRERREKREKEEEKREEKEKKEE 
& 
* 
REKEKEEEKEEEKEKEEKREKRREKREEKEREKKEEEKREKEREKKERKEEEEEREEEKEREKREKRKEEEKEKEKEKKEK 


LAB SB4 , SB6 $B4 == VPB POINTER 

LAB $B2,$B6.AP_SBF $B2 == ADDR OF SEND BUFFER 
SSSDAT  ,=$B2,$B6.AP_SBF 

LB =$R1,=(VRABND+VRSCNL) WAS IT ABAND OR REQUEST CANCEL ? 
BBT DEAL IF TRUE ERROR 


RKAEKAAKKERRRKKKEREEREKEEERAKKEKEEEKREEREREREREEERREREERKRERRREKEREEREREREREEREEKREER 


* 
/ 
* 
- PREPARE T O RECEIVE 

* THIS COMMAND WILL CHANGE THE CONVERSATION STATE FROM SEND, TO RECEIVE, AND 
* FLUSH (TRANSMIT) THE LOCAL LU‘S SEND BUFFER. 

* THIS COMMAND IS OPTIONAL, AND THE SAME RESULT COULD OF BEEN OPTAINED BY 

* A SSRAW ( RECIEVE AND WAIT). THE LOCK OPTION BEING USED (LONG) SPECIFIES 
* RETURN CONTROL TO THE LOCAL PROGRAM AFTER DATA AND AN ACKNOWLEDGEMENT IS 

* RECEIVED FROM THE REMOTE TRANSACTION. 
KRREEKEREREREEREREEEEEEREEREEEEERAEREEEEREREEREEREEEREEEEEREREREREEEEREREREEREEEE 


+e &¢ e & He F 


SSPTOR 7 FLUSH, LONG 
LB =$R1,=(VRABND+VRSCNL) WAS IT ABAND OR REQUEST CANCEL ? 
BBT DEAL IF TRUE ERROR 


Figure B-5 (cont). Sample Assembly Language Program for LU 
Type 6.2 for Host-Initiated Session 
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HHI RIKER K IK IK KIKI KERIKERI IRI KIKI KEIR IHR IK IKARIA TKR EKER KEK 


* 


RECEIVE AND WALT 


* THIS COMMAND WILL CHANGE YOUR CONVERSATION STATE TO RECEIVE , IF YOU ARE | 
* NOT IN RECEIVE STATE, AND THEN FLUSH ITS SEND BUFFER. THE LU THEN WAITS 


+ +e He & 


* 
* 
FOR INFORMATION TO ARRIVE, OR RECEIVES THE DATA WITHOUT WAITING IF IT IS id 
CURRENTLY AVAILABLE. THIS RECEIVE SPECIFIES BUFFER, WHICH WILL RECEIVE = 
DATA UNTIL THE BUFFER IS FULL, OR END OF DATA IS INDICATED. BUFFER SIZE * 
IS SPECIFIED BYE DATA BUFFER LENGTH (VP_DLG) i 

* 


KKK KEKE KIKI KEE EIR REE EEK ERE REE EEE KERRIER EERE EEEEKEEEEERERERKEKE 


* 


RAW 


CHK1 


CHK2 


QD 
m 
yas 
WwW 


+e & e. & 


B 
$SUSOUT 
B 


COMPARE TO SEE IF SEND BUFFER EQUALS RECEIVE BUFFER | | * 


0 : 
$B2,$B6.AP_RBF SB2 = ADDR OF RECEIVE BUFFER 
,=$B2,=BUF_SZ,BUFFER 

=$R1,=(VRABND+VRSCNL) WAS IT ABAND OR REQUEST CANCEL ? 


DEAL IF TRUE ERROR 

SR2,$B4.VP_WAR ELSE GET THE WAT RECEIVED FIELD 

SR2 ,=VBRDAT IF DATA RECEIVED TRANSLATE IT 
TRANS 

SR2 ,=VBRCSN ELSE WAS IT A CONFIRM WITH SEND ? 
>CHK1 _ IF TRUE EXECUTE A COMPIRMED 

$B5 , CONFMD (SEND STATE ) 

OUTMSG GO BACK TO TERMINAL FOR MORE DATA 
SR2 ,=VBRSND ELSE WAS IT A REQUEST TO SEND 
OUTMSG - IF TRUE OUTPUT PROMPT 
SR2,=VBRCDA ELSE WAS CONFIRM DEALOCATE? 
>CHK2 IF TRUE EXECUTE CONFIRMED 
SB5 , CONFMD (RESET STATE) 

Quit EXIT APPLICATION 

SR2 ,=VBRCNF ELSE WAS IT CONFIRM ? 

CHK3 | IF TRUE EXECUTE CONFIRMED 
$B5 , CONFMD (STATE DOES NOT CHANGE) 
RAW | | GOTO NEXT RECEIVE 
IBADWHT,=WHTL, L 4 ELSE REPORT ERROR & CONTINUE 
SNDERR 


HEKKRKRRERIRIRIIRKKRRE EER IK HERE REE III IIIA IR IAAI KEKE EER EERE EERE EREKE 


* 


* 


TTITITT ITI STITT CIT TILT IIT TTT TT TTT TIT TTT ETT ITT TT LISI T ITIL IT ST TTT TST TT tts TS 


* 
TRANS 


GETNXT 
* 


RESV 
LAB 
LAB 
LDR 
SUB 
BLZ 


0 

$B2,$B6.AP_SBF $B2 = ADDR OF SEND BUFFER 
$B3,$B6.AP_RBF SB3 = ADDR OF RECEIVE BUFFER 
$R3,$B4.VP_ADL SR3 = # OF CHARS TO TRANSLATE 
$R3,=1 SUBTRACT 1 FOR BLZ 

$R3, TRANS] IF BUFFER EQUAL DISPLAY THEM 


Figure B-5 (cont). Sample Assembly Language Program for LU 


Type 6.2 for Host-Initiated Session 
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LDH SR1,$B2.$R3 GET CHAR FROM SEND BUFFER 


CMH $R1,$B3.$R3 COMPARE WITH CHAR FROM RECEIVE BUFFER 
ADV $R3,~-1 SUBTRACT 1 FROM INDEX 

BE GETNXT IF EQUAL GET NEXT CHAR 

SUSOUT {!BADDAT,=BADDL, L ELSE REPORT ERROR 

B SNDERR SEND ERROR SIGNAL TO REMOTE 


* 
RKERKEKKKKEEKEKREKKEKEKEKEEKREKEKEKREKEKEEEKEKREKKEEEEEKEKEKEEEEKEREKEKEKEKEEKREEKEKREKREKEKEKEK 


¥ TRANSLATE DATA FROM EBC D.rC T O ASCII . 
THIS IS AN EXAMPLE OF THE TRANSLATE CALL. IT WILL TRANSLATE FROM EBCDIC od 
FROM $B2.$R2 TO $B4.$R4 ASCII ( THIS EXAMPLE WILL TRANSLATE IN PLACE ) . * 
S$R6 WILL CONTAIN THE # OF CHAR TO TRANSLATE * 
* 
* 


+ & + & 


VP_ADL = ACTUAL # OF CHARS RECEIVED FROM REMOTE TRANSACTION 
KHER KEKE EEK KEKE EEK E KEE KEKE EERE EERE KE KREEEEKERKEEEEEKREREKEREREEEEREEEES 


* 


TRANSL RESV 0 
LDR SR6,$B4.VP_ADL 9R6 = # OF CHAR TO TRANSLATE 
LAB SB2,$B6.(AP_RBF+LL) SB2 = ADDR FROM BUFFER 
LDV $R2 ,0 $R2 = INDEX INTO FROM BUFFER 
LAB $B4 ,$B2 $B4 = ADDR TO BUFFER 
LDV SR4 ,0 $R4 = INDEX INTO TO BUFFER 
SUB SR6 ,=LL*2 SUBTRACT OUT LL FIELD 
SSEBAC 

* 
LDR SR6 ,$B6.VP_ADL GET #¢ OF CHARS TO DISPLAY 
SUB SR6 ,=LL SUBTRACT OUT LL FIELD 
LAB $B4,$B4 .-LL ADJUST BUFFER ADDR FOR SLEW 
LDR SRL,=* A! SLEW CHAR TO OUTPUT 
STR SR1,$B4 STORE IT IN THE BUFFER 
SUSOUT rok 
LAB 5B4,$B6.AP_VPB SB4 = ADDR OF VPB 
B RAW GET NEXT INPUT 


* 


RKEKARAERKEREEKKREKAKAKAREEREEKEEKERRKEKEEKEEREERKEEERREREEEEREEEEREREERAREERAREREKRAREE 


* DEALLOCATE THE CONVERSATION = 
* DEALLOCATE THE CONVERSATION NORMALLY AND FLUSH THE LOCAL LU'S SEND BUFFER - 
* IF THE DEALLOCATE NORMAL IS NOT HONORED, AN ABNORMAL DEALLOCATE TYPE = i 
* PROGRAM ERROR WILL EXECUTE, FORCING THE CONVERSATION TO DEALLOCATE * 


KKEKEKEREEEEEEEREEERERREEKERREKEEREREEREEEREEREEEEEEREEEEEEEEEEREREEEEEEEEREEERERE 
% 
& 


DEAL RESV 0 
LAB $B4,$B6.AP_VPB $B4 = ADDR OF THE VPB 
SSDEAL eFLUSH,NO LOG,, 
LB =$Rl,=(VRABND+VRSCMP) WAS IT ABAND OR REQUEST COMPLETE ? 
BBT QUIT IF TRUE END PROGRAM 

* ELSE .DEALOCATE ABNORMALLY (PROGRAM ERROR) 
SSDEAL ‘ ,PROG_AB,NO_LOG,, 
B QUIT 

* 

/ 


Figure B-5 (cont). Sample Assembly Language Program fcr LU 
Type 6.2 for Host-Initiated Session 
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HHEKEKKKEKEKKEKKREKKKEREKREEEEEKREEERREEEREEEEEREKEEKEEREEKEEEKKERKEKKEKKKKKKEKKEKRE 


* SEND ERROR TO REMOTE * 
* SEND AN ERROR TO THE REMOTE. THE CONVERSATION STATE WILL CHANGE FROM * 
* RECEIVE TO SEND STATE, AND THE SEND BUFFER WILL NOT BE FLUSHED. * 
REE EKEEREEKEEER EERE ERE EEE ER REE EKER EREEEREREREREREEEREKEREEEEREEERKEEKERREKER 
*: 
SNDERR —-RESV 0 : 

LAB SB4,$B6.AP_VPB $B4 = ADDR OF VFB 

SSSERR —_, PROG, NO_LOG, | 

LB =$R1,=(VRABND+VRSCNL) WAS IT ABAND OR REQUEST CANCEL ? 

BBT DEAL | IF TRUE ERROR 
; —_ 

B OUTMSG ELSE RECEIVE NEXT 
* 
OPE E ETE CORTE TOC LET RTT C EEOC E CTE SORA ERLPOE TE Pe eT nT OnE R Tee eer 
* * 
* SEND CONFIRMED TO REMOTE * 
* * 


KEXEKAKEKKEKEKEEEKRKEKEREEREKREREREEREEREEKREKEEREKEREEREEEEREEREKEERERERERERKKKRKREKES 
* 


CONFMD RESV 0 
SSCNFD | | 
LB =S$R1,=(VRABND+VRSCNL) WAS IT ABAND OR REQUEST CANCEL ? 
BBT DEAL IF TRUE ERROR 
JMP SB5 ELSE RETURN TO CALLER 
* 
/ 
*& 
QUIT RESV 0 
LAB SB4 , SB6 SET SB4 = WORK SPACE 
SRMEM 
STRMRQ 
* 
k 
INPDAT TEXT | 'APLEASE ENTER DATA TO BE SENT TO HOST, OR TYPE "END" TO 
END THE CONVERSATION ' 
* | : 
INPL — EQU (S-INPDAT) *2 
* 
BADDAT TEXT | 'AFORMAT ERROR:RECEIVE BUFFER DOES NOT EQUAL SEND BUFFER ' 
& 
BADDL EQU (S-BADDAT) *2 
: | 
BADWHT TEXT ‘AUNEXPECTED WHAT RECEIVED FIELD’ 
* 
WHTL — EQU (S-BADWHT) *2 
* od 
NOCHAR TEXT 'ANO DATA HAS BEEN ENTERED, PLEASE ENTER DATA OR END TO 
DEALOCATE THE CONVERSATION! 
* 
NOL EQU ($-NOCHAR) *2 
* 7 
MISMSL TEXT 'ASYNC LEVEL MISMATCH, PLEASE CHANGE AND REASSEMBLE 
APPLICATION, APPLICATION ABORTED! 
MISL EQU ($-MISMSL) *2 
* 
END VR_02 END 


Figure B-5 (cont). Sample Assembly Language Program for LU 
Type 6.2 for Host~-Initiated Session 


B-30 GR11-02 


TITLE VR_SUB,'65011511' SPI TAP SUBROUTINES. 


LIBM ‘°*>>LDD>MACROS>MAC USER' 


LIBM EXEC_LIB 
LIBM OS _LIB 
SSVPB 
/ 
& 
XVAL AP_VPB,AP_SBF 
& 
XDEF GTMEM 
GTMEM RESV 0 
de 


* 
*THIS IS THE GET MEMORY SUBROUTINE. 


THE SIZE OF THE BLOCK OF MEMORY AND ITS SPACE INITIALIZATION VALUE 
ARE PROVIDED BY THE CALLER OF THIS SUBROUTINE. 


$R6/S$R7 -> THE SIZE OF THE BLOCK OF MEMORY TO BE OBTAINED 
$R5 -> THE SPACE INTIALIZATION VALUE FOR THE MEMORY BLOCK 


UPON EXIT FROM THIS SUBROUTINE, THE MEMORY BLOCK'S ADDRESS AND SIZE 
OR IF THERE WAS A PROBLEM, THE ERROR CODE ARE RETURNED TO THE CALLER. 


SB4 -> ADDRESS OF THE MEMORY BLOCK 
SR7 -> SIZE OF THE MEMORY BLOCK 
SRl1 -> ERROR CODE 


ee ee % 2 HS HS SF HS HF BS FH 


SGMEM 


 & 


CHECK FOR ERROR CODE RETURN FROM MACRO CALL 


& 


BEZ SRL, >+$C : IF NO ERROR ON THE GET MEM, CONTINUE 
* UNABLE TO GET THE BLOCK OF MEMORY, RETURN WITH THE ERROR CODE IN §$R1 
SA RESV 0 


JMP $SB5 RETURN TO THE CALLER 


* INITIALIZE THE BLOCK OBTAINED WITH THE PROVIDED VALUE ($R5) 
* 


CLRIT RESV 0 
SC RESV 0 
LDR SR2 ,=$R7 INIT. THE INDEX WITH THE SIZE OF TH 
LDB SB2 ,=SB4 MUST USE Bl, B2, OR B3 FOR B-REL.+INDEX 


Figure B-6. Subroutines for LU Type 6.2 Assembly 
Language Programs 
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* 


THE BLOCK INITIALIZATION LOOP 


SD | RESV : 
STR SR5 ,$B2.~S$R2 STORE THE PROPER VALUE IN THE NEXT BLOCK 
BGZ | $R2,>-SD_ THE INDEX IS ALSO THE NUMBER OF LOCATION 
* END OF LOOP, BLOCK IS INTITIALIZED 
B >-SA RETURN TO THE CALLER WITH THE BLOCK 
* 
/ 
* . ; 
* CONVERT 1 HEX WORD TO 4 ASCII BYTES 
* SR7 = WORD TO CONVERT 
* $R3 = OFFSET INTO MEMORY TO STORE CONVERTED VALUE 
* $B3 = BASE MEMORY ADDR OT STORE CONVERTED VALUE 
* SR2 = # OF CHARS TO STORE 
* 
ASCII EQU S$ 
LDV SR2 ,3 # OF BYTES TO CONVERT -1 
ASCI1 LDV SR6 ,0 
ADV SR6 ,=X'30' ADD ASCII BIAS 
CMR SR6 ,=X 003A‘ IS IT A THROUGH F ? 
BL >STRASC IF NOT STORE IT 
ADV SR6 ,7 ADD ALPHA OFFSET 
STRASC STH SR6 ,$B3.~$R3 STORE STRING 
BDEC S$R2 ,>ASCI1 
, JMP SB5 RETURN TO CALLER 
m | 
| | XDEF PRTVRB 
PRTVRB RESV 0 | | 
STB SB5 ,~$B7 SAVE RETURN ADDR ON STACK 
LDR $R2,$B4.VP_OPC GET OP CODE OF VERB WITH ERROR 
LBF =SR2,=Z'F000' CHANGE HIGH ORDER NIBBLE TO 0 
CMV SR2 ,=4 WAS IT A CONTROL TYPE VERB 
BNE >OPCFND | IF FLASE SET TABLE 
LDR $R2,$B4.VP_CTL ELSE GET CONTROL TYPE 
LBF =$R2,=Z'F000' RESET HIGH ORDER NIBBLE 
LAB $B2, CTLTBL SB2 = TABLE TO SEARCH 
B >+SA 
OPCFND LAB SB2,OPCTBL $B2 = TABLE TO SEARCH 
SA MLV $R2,TBLGTH $R2 = OFFSET INTO TABLE 
LAB $B3,$B6.AP_ SBF $B3 = ADDR OF TO BUFFER 
LDV $R3 ,0 $R3 = OFFSET INTO BUFFER 
LDV SR6, TBLGTH SR6 = # OF BYTES TO MOVE 
MMM 
* . 
LDR $R7 ,$B4.VP_RCD GET RETURN CODE 
LDV S$R3,12 OFFSET TO STORE ASCII RETURN CODE 
LNJ $B5, ASCII TRANSLATE HEX TO ASCII 
* 
LDR $R7 ,$B4.VP_WAR GET WHAT RECEIVED 
LDV SR3,18 OFFSET TO STORE ASCII WHAT RECEIVED 
LNJ $B5,ASCII TRANSLATE HEX TO ASCII 


Figure B-6 (cont). Subroutines for LU Type 6.2 Assembly 
| Language Programs 
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suSOUT 
LAB 
LDR 
LDB 
JMP 
* OP CODE TABLE 
OPCTBL RESV 
TEXT 
TBLGTH EQU 
TEXT 
TEXT 
CTLTBL RESV 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 


END 


Figure B-6 (cont). 


=$B3 ,=TBLGTH+2 
$B4,$B6.AP VPB 
$R1,$B4.VP RCD 


SB5 ,+SB7 
SB5 


0 
‘ASSALLO 


(S-OPCTBL) *2 


‘AINVLD 
"ASSSDAT 
0 

"ASSFLSH 
"ASSCONF 
"ASSCNFD 
‘ASSRTOS 
"ASSSERR 
‘ASSPTOR 
"ASSPONR 
‘ASSDEAL 


VR_SUB 
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RESET $B4 TO VPB 

RESET $R1 TO RETURN CODE 
RESTORE RETURN ADDR 
RETURN TO CALLER 


Subroutines for LU Type 6.2 Assembly 
Language Programs 
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ne 


Appendix C 
SAMPLE COBOL 
PROGRAMS 


This appendix provides compilation listings of COBOL 
programs. These programs demonstrate the use of AIF LU Type 0 
and LU Type 6.2 for both DPS 6— and Host-initiated sessions. All 
references to the DPS 6 system also include the DPS 6 PLUS 
system. 


Figure C-l1 is an AIF LU Type 0 sample program for a DPS 6- 
initiated session. Figure C-2 is an AIF LU Type 0 sample program 
for a HoSt-initiated session. 


Figure C-3 is an AIF LU Type 6.2 sample program for a DPS 6- 
initiated session. Figure C-4 is an AIF LU Type 6.2 sample | 
program for. a Host-initiated session. 
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PROGRAM-ID. LOS1C. 


KREKEKEEKKEKEEEEEKREERREEKEEREREREREEEERREEEEKEREEEEKEERREKEEEEEEERERKKEEERE 


THIS IS A SAMPLE LU 0 PROGRAM WHICH WILL EXERCISE SOME OF THE 
AIF LUO COBOL CALLS. THE PROGRAM WILL START A SESSION WITH THE 
HOST TRANSACTION ADLO. IT WILL READ DATA FROM THE TERMINAL, 
CONVERT IT TO EBCDIC, AND SEND THE CONVERTED RECORD TO THE HOST 
THEN RECEIVE THE RECORD BACK. UPON RECEIVING THE DATA BACK, THE 
PROGRAM WILL COMPARE THE DATA THAT WAS RECEIVED WITH THE DATA 
SENT DIPLAYING A PROPER MESSAGE ON THE TERMINAL. IT WILL 
CONVERT THE RECEIVED DATA TO ASCII AND DISPLAY IT ON THE 
TERMINAL. IF THE TERMINAL INPUT DATA STARTS WITH: END; THE 
PROGRAM WILL TERMINATE THE SESSION AND END, OTHERWISE, THE 
PROGRAM WILL GO THROUGH THE SAME PROCESS WITH WHAT HAS BEEN 
RECEIVED FROM THE TERMINAL. 

KHRKK KKK KKK ERE KEKE REE RE KERR KRERE EEE KERR EEEEREEEEREEERERERERREERRERRKEE 
ENVIRONMENT DIVISION. 

CONFIGURATION SECTION. 

SOURCE-COMPUTER. LEVEL-6. 


OBJECT-COMPUTER. LEVEL-6. 
* 


* 


DATA DIVISION. 
WORKING-STORAGE SECTION. 
Ol START-OF-WS PIC X(32) 
VALUE "START OF WORKING STORAGE SECTION". 
Ol AIF-PARAMETERS PIC X(21) VALUE "AIF PARAMETERS FOLLOW". 


OF OF OF OF OF OF OF OF OF OF 
% 0 OF OF OF OF OF OF OF OF 


77 SNA-WORK-AREA PIC X(200). 

77. AIF-NODE-NAME PIC X(8) VALUE "SMPLAIF". 

77 REMOTE-LU~NAME = «PIC X(8) VALUE "AO6CICS2". 
77° ~STD-NAME , - PIC XX VALUE "BB". 

77. SYNC-CALL | PIC X VALUE "S", 
77° +=ASYNC-CALL = PIC X VALUE "A", 

77 RESTART-SESSION PIC X VALUE "R". 

77 NEW-SESSION PIC X VALUE "N", 

77 SESSION-ID PIC X(4) VALUE SPACES. 

77 MSG-RESYNC-SEND-SQN - PIC 9(5) VALUE ZEROS. 

77 MSG-RESYNC~RECV-SON PIC 9(5) VALUE ZEROS. 

01 SEND-DATA-BUFFER | PIC X(84) VALUE SPACES. 
77° SEND-BUFFER-SIZE PIC 9(5) VALUE ZEROS. 

77 DATA-BUFFER-ALIGNMENT PIC X VALUE "L". 

77 REPLY-REQUEST PIC X VALUE "R", 

77 WHOLE-MSG-INDICATOR PIC X VALUE "Y", 

77 FMH-INDICATOR PIC X VALUE "N", 

77. RQD-INDICATOR PIC X VALUE "N". 

01 RECEIVE-DATA-BUFFER. 

05 RECEIVE-RECORD PIC X(80) VALUE SPACES. 

77 RECEIVE-BUFFER-SIZE PIC 9(5) VALUE 80. 

77 RECEIVED-DATA-LENGTH - PIC 9(5) VALUE 0. 

77 RECV-COMPLETE-MSG PIC X VALUE "Y", 

77 WORK-AREA-ID PIC X(4) VALUE SPACES. 

77 SEND-RESPONSE-TY PE | PIC X VALUE "=", 

77 SEND-SENSE-DATA PIC X(8) VALUE ZEROS. 


Figure C-1. Sample COBOL Program for LU Type 0 for DPS 6- 
Initiated Session 
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01 


05 

05 
77 
77 
77 
77 
O01 

05 

05 
77 
01 

05 

05 

05 

05 

05 

05 

05 

05 

05 
77 
77 
77 
01 

Figure C-] 


RETURN-CODE~VALUES. 


MAJ OR-RETURN-CODES. 
10 SESSION-ABORT 

88 SESSION-ABORTED 
10 STOP-RECEIVED 

88 SOPR-ISSUED-STOP 
10 INTERRUPT-RECVD 

88 INTERRUPT-RECEIVED 
10 SERV-REQ-CANCELLED 

88 CALL-WAS-CANCELLED 
10 SERV-REQ-COMPLETE 

88 CALL-WAS-COMPLETED 
10 COBOL-ERROR 

88 CALL-~FORMAT-ERROR 
MINOR-RETURN~CODE 


INTERRUPT-TYPE 
INTERRUPT-DATA-LENGTH 
TERMINATE TYPE 
GET-ATTR-TY PE 
SOPR-STOP-TIME. 


DATE-OF-STOP. 

10 STOP-YEAR 

10 STOP-MONTH 
10 STOP-DAY 
TIME-OF-STOP. 

10 STOP-HOUR 

10 STOP-MINUTE — 
10 STOP-SECONDS 


RECEIVED-SENSE~DATA 
OUTPUT-CONTROL-WORD. 


REPLY-REQUEST=-CD 

88 CHANGE-DIRECTION-RCVD 
DEFINITE-RES PONSE-REQ 

88 DEFINITE-RESPONSE-RCVD 
LAST-MSG- EB 

88 MSG-WITH-EB-RECEIVED 
FMH- IN-RCVD-DATA 

88 RCVD-DATA-HAS-FMH 
BEGIN-MSG-RCVD-BC 

88 BEGIN-CHAIN-RCVD 
END~MSG=RCVD-EC 

88 END-CHAIN-RCVD 
SET-SEND-RECV-SEQ 

88 STSN-RECEIVED 
APPL-RES END- REQUIRED 

88 RESTART-LAST-MSG-INB 
HOST-RESEND~REQUIRED 

88 RESTART-LAST-MSG-OUTB 


CONVERS ION-LENGTH 
TRANSLATE-FROM- POSITION 
TRANSLATE-TO- POSITION 
END-OF-AIF PIC X(21) VALUE "END OF AIF PARAMETERS". 


(cont). 


DPS 6-Initiated Session 


C=3 


PIC X VALUE "N". 
VALUE "Y". 

PIC X VALUE "N". 
VALUE "Y". 

PIC X VALUE "N". 
VALUE "Y". 

PIC X VALUE "N". 
VALUE "Y". 

PIC X VALUE "N". 
VALUE "Y". 

PIC X VALUE "N". 
VALUE "Y". 

PIC 9(4) VALUE ZEROS. 
PIC 99 VALUE ZEROS. 
PIC 9(5) VALUE ZEROS. 
PIC X VALUE "N", 
PIC 99 VALUE Ol. 
PIC 99. 

PIC 99. 

PIC 99. 

PIC 99. 

PIC 99. 

PIC 9(4). 

PIC X(8) VALUE ZEROS. 
PIC X. 

VALUE "Y*, 

PIC X. 

VALUE "Y". 

PIC X. 

VALUE "Y". 

PIC X. 

VALUE *Y". 

PIC X. 

VALUE "Y". 

PIC X. 

VALUE "Y". 

PIC X. 

VALUE "Y". 

PIC X. 

VALUE "Y". 

PIC X. 

VALUE "Y". 

COMP~-1 VALUE l. 
COMP-1 VALUE 1. 


Sample COBOL Program for LU Type 0 for 


GR11-02 


01 MISC~PROGRAM-VARIABLES PIC X(26) VALUE 
| "OTHER WORKING STORAGE DATA". 
01 DATA-~TO-HOST PIC X(84) VALUE HIGH-VALUES. 
O01 DATA-TO-HOST-REDEF REDEFINES DATA-TO-HOST. 
05 HOST-TRANSACTION PIC X(4). 
05 DPS6-DATA-RECORD. 
10 CHECK-~INPUT-FIELD OCCURS 80 TIMES. 


15 DATA-FIELD-CHAR PIC X. 
01 DATA-FROM-HOST. 
05 DATA-FIELD OCCURS 80 TIMES. 
10 DATA-FLD-CHAR PIC X. 
01 DATA-FROM-TERMINAL. 
05 END-INDICATOR PIC XXX. 
88 END-PROGRAM VALUE "END". 
05 FILLER PIC X(77) VALUE SPACES. 
Ql SWITCH-COUNT-VARIABLES. 
05 INDX1 COMP=1 VALUE l. 
05 INDX2 COMP-1 VALUE 0. 
05 NUMBER-CHARS PIC 9(4) VALUE ZEROS. 
05 CALC-LENGTH COMP=1 VALUE ZEROS. 
05 TEMP-LENGTH PIC 9(5) VALUE ZEROS. 
05 ERROR-IN-CALL-SW PIC 9 VALUE 0. 
88 OK-TO-CONTINUE VALUE 0. 
05 RECORD-CHECK-SW PIC 9 VALUE 0. 
88 RECORD-CHECKED VALUE 1. 
05 NO-INPUT-SW PIC 9 VALUE 0. 
- 88 NO-INPUT-DATA VALUE 1. 
05 COMPARE-REC-SW PIC 9 + VALUE 0. 
88 COMPARE-OK VALUE 0. ; 
05 NO-MORE-SW PIC 9 VALUE 0. 
88 +NO=-MORE-TO-CHECK VALUE 1. | 
05 INTERRUPT-SW PIC 9 + VALUE 0. 


88 INTERRUPT-CALL-NEXT VALUE 1. 
O01 ENTER-MESSAGE PIC X(80) VALUE 

"PLEASE ENTER DATA TO TRANSMIT TO HOST OR END TO QUIT". 

01 END-OF-WORK-STOR PIC X(19) VALUE "END WORKING STORAGE". 
PROCEDURE DIVISION. 
000-BEGIN. 

DISPLAY "START OF LU 0 SAMPLE COBOL PROGRAM". 
KREKKKEKKEREKKEKERKKEKEEKKEKEEKEEKEREERERERKEKKEEKKEKRKKRKKKEEKKKKERKKESR 
* START BY TRYING TO INITIATE A SESSION WITH THE HOST CICS * 
* SUBSYSTEM. a 
HK IK HI KHER IRI I A III III III III III AIS IASI IIASA A a 

PERFORM 100-INITIATE-SESSION THRU 100-EXIT. 

IF OK-TO-CONTINUE 

NEXT SENTENCE 

ELSE 

GO TO 099-TERMINATE. 


Figure C-l1 (cont). Sample COBOL Program for LU Type 0 for 


DPS 6—-Initiated Session 
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KEKE KERR ERE REI EEK ERR EERIE REE ERIE ERE ERE EERE REKEEREEEREEEKEEREEEE 


- IF THE SESSION IS INITIATED THEN WE CAN PROCEED WITH THE . 
. REMAINDER OF THE PROGRAM PROCESS. zi 
KKK KKK EERE KEE KEE KEE ERE REE EEE EERE REE ER EKER EERE EREREKREKEKEEEKS 
005-CONTINUE. ) 
MOVE "ADLO" TO HOST-TRANSACTION. 
PERFORM 200-GET-RECORD THRU 200-EXIT. 
IF END-PROGRAM 
DISPLAY "END OF RUN REQUESTED - PROGRAM WILL END" 
PERFORM 999-END-PROGRAM THRU 999-EXIT 
GO TO 099-TERMINATE 
ELSE 
NEXT SENTENCE. 
MOVE HIGH-VALUES TO DPS6-DATA~RECORD. 
MOVE SPACES TO DATA-~FROM-HOST 
RECEIVE-RECORD. 
MOVE DATA-FROM-TERMINAL TO DPS6-DATA~RECORD. 
MOVE 0 TO INDX1 
NO- INPUT SW 
RECORD-CHECK— SW 
SEND-BUFFER-SIZE. 
PERFORM 300-CHECK~TERMINAL-DATA THRU 300-EXIT VARYING INDX1 
FROM 1 BY 1 UNTIL RECORD-CHECKED. 
IF NO- INPUT-DATA 
DISPLAY "NO DATA WAS ENTERED FROM THE TERMINAL" 
DISPLAY "PLEASE KEY SOME DATA BEFORE HITTING ENTER KEY" 
GO TO 005-CONTINUE 
ELSE 
NEXT SENTENCE, 
MOVE DATA-TO-HOST TO SEND-DATA-BUFFER. 
PERFORM 400-SEND-RECORD THRU 400-EXIT. 
IF OK~-TO-CONTINUE 
NEXT SENTENCE 
ELSE 
PERFORM 999-END-PROGRAM THRU 999-EXIT 
GO TO 099-TERMINATE. 
IF INTERRUPT-CALL“-NEXT 


PERFORM 700-GET- INTERRUPT-INFO THRU 700-EXIT 


ELSE 
NEXT SENTENCE. 
IF OK-TO-CONTINUE 
NEXT SENTENCE 
ELSE 
PERFORM 999-END-PROGRAM THRU 999-EXIT 
GO TO 099-TERMINATE. 
010-DO-RECEIVE. 
PERFORM 500-RECEIVE-INFO THRU 500-EXIT. 
IF OK~-TO-CONTINUE 
NEXT SENTENCE 
ELSE 
PERFORM 999-END-PROGRAM THRU 999-EXIT 
GO TO 099-TERMINATE. 
PERFORM 600-COMPARE-INOUT THRU 600-EXIT. 


Figure C-1 (cont). Sample COBOL Program for LU Type 0 for 
DPS 6-Initiated Session 
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020-CHECK-COMPARE. 
IF COMPARE-OK | 
DISPLAY "PROGRAM WILL CONTINUE" 
ELSE 
DISPLAY "CHECK PROGRAM LOGIC - SESSION WILL TERMINATE" 
PERFORM 999-END-PROGRAM THRU 999-EXIT | 
GO TO 099-TERMINATE. 
IF OK-TO-CONTINUE 
NEXT SENTENCE 
ELSE 
PERFORM 999-END-PROGRAM THRU 999-EXIT 
GO TO 099-TERMINATE. 
IF INTERRUPT-CALL-NEXT 
PERFORM 700-GET-INTERRUPT-INFO THRU 700-EXIT 
ELSE 7 
NEXT SENTENCE. 
GO TO 005-CONTINUE. 
099-TERMINATE. 
STOP RUN. 


* 
* 


a 


100-INITIATE-SESSION. 
RREEKKEEKKEKEKEEERKEEEEKEREREEREKEKREREKEKKKKEREKRRKKRKRKKRKEKRKKKRKRKKRKESE 
* THIS ROUTINE WILL ISSUE A CSINIT TO ATTEMPT TO START A 
* SESSION WITH THE HOST CICS SUBSYSTEM. THIS CALL WILL BE * 
* MADE SYNCHRONOUSLY BECAUSE WE WANT TO MAKE SURE A SESSION * 
* IS AVAILABLE BEFORE ATTEMPTING TO START A PROGRAM TO  # 
* PROGRAM CONVERSATION WITH A HOST TRANSACTION. * 
REKEKEKEKEKEEEEKEKEKEEEEEEEKREKEEREREKEKREREEREEEREKREEEEKKEREKREREKEERER 
*****DISPLAY "GOING TO DO CSINIT NOW". 
CALL "CSINIT" USING SNA-WORK-AREA 

AIF-NODE-NAME 

REMOTE-LU-NAME 

STD-NAME 

_ SYNC-CALL 

NEW-SESSION 

SESSION-ID 

MSG-RESYNC-SEND- SQN 

MSG- RESYNC- RECV- SON 

RETURN- CODE-VALUES 

INTERRUPT-TY PE 

SOPR-STOP-TIME 

RECEIVED-SENSE-DATA. 


Figure C-l (cont). Sample COBOL Program for LU Type 0 for 
DPS 6-Initiated Session 
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KEEKEKEEKEEKEKEKEKEKEEREREEKREEEEKEREREEREKEEEREKEREEKEEEEKEKERKEKE 


* CHECK THE RETURN CODE VALUES NEXT TO MAKE SURE THE CALL HAS * 
* COMPLETED WITHOUT ANY ERRORS. * 
KRKEEKEREKEKEKEKEEEKEEREEREEEEEREEKAEEEREKEKEEKEKEREKEKEERKEEKKEKEKEEKEE 

PERFORM 900-CHECK-RETURN THRU 900-EXIT. 

IF OK-TO-CONTINUE 

NEXT SENTENCE 
ELSE 
DISPLAY "ERRORS FROM CSINIT REQUEST - CHECK RETURN CODES" 
DISPLAY "PROGRAM WILL END - NO SESSION" 
GO TO 100-EXxIT. 
DISPLAY "SESSION HAS BEEN ESTABLISHED - ID IS: " 
SESSION-ID. 
IF INTERRUPT-CALL-NEXT 
PERFORM 700-GET-INTERRUPT-INFO THRU 700-EXIT 
ELSE 
NEXT SENTENCE. 
100-EXIT. 
EXIT. 
*EJECT 
200-GET-RECORD. 

MOVE HIGH-VALUES TO DATA-FROM-TERMINAL. 
KRRKKEKREKKERRERREKKEERARRERERERRERARREKEEREEERKEEKEEREKEKKEREKEKEEEEKRREKEKEEE 
* NOW GET SOME DATA FROM THE TERMINAL OPERATOR TO SEND TO THE * 
* HOST REMOTE PROGRAM. 
ee ake cate easeiaeceecceivecsnuueee exe eue: 

‘DISPLAY ENTER-MESSAGE. 

ACCEPT DATA-FROM-TERMINAL. 

200-EXIT. 
EXIT. 
*SKIP3 
300-CHECK-TERMINAL-DATA. 
REEEERAERERKKREEEREKEERKERRRERREKEEEREER ER REREERERERRERERERERERKKEER 
* NOW CHECK THE INPUT FROM THE TERMINAL TO SEE IF ANY DATA * 
* WAS ENTERED AND CALCULATE THE LENGTH OF THE DATA ENTERED * 
* ° THEN CONVERT THE DATA TO EBCDIC. 
RRREEKARRERKRRKARKERREERERERERRERRAEERRERRERRAEEKREARREEREARERERREREERE 
IF CHECK-INPUT-FIELD (INDX1) IS EQUAL TO HIGH-VALUES 
MOVE 1 TO RECORD-CHECK~SW 
COMPUTE CALC-LENGTH = INDX1 - 1 
IF CALC-LENGTH IS EQUAL TO ZEROS OR 
CALC-LENGTH IS LESS THAN ZEROS 
MOVE 1 TO NO-INPUT-SW 
GO TO 300-EXIT 
ELSE - 
ADD 4 TO SEND-BUFFER-SIZE 
COMPUTE CONVERSION-LENGTH = SEND-BUFFER-SIZE 
PERFORM 305-CONVERT-RECORD THRU 305-EXIT 
ELSE 
ADD 1 TO SEND-BUFFER-SIZE. 
300-EXIT. 
EXIT. 
*SKIP3 
305-CONVERT-RECORD, 


Figure C-1 (cont). Sample COBOL Program for LU Type 0 for 
DPS 6-Initiated Session 
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REAR REE KEKE EEREEE ERK EEEREEKEEREKEEEREREREREEEKEEEKEREKEEKREKKES 


* THIS ROUTINE WILL ISSUE THE CSACEB CALL TO CONVERT THE DATA * 
— FROM THE TERMINAL AND THE HOST TRANSACTION NAME TO EBCDIC * 
* BEFORE THE DATA IS SENT TO THE HOST CICS SYSTEM. a 
KREKKKEEKEREKKEEEEREREEREREKKEERREKEREREREKEREEEEEKEEEREEEEEEEEKEEEEEE 
CALL "CSACEB" USING SNA-WORK-AREA 
DATA-TO-HOST 
TRANSLATE-~FROM- POSITION 
DATA-TO~-HOST 
TRANSLATE- TQ— POSITION 
CONVERSION~LENGTH. 
IF CALL~FORMAT-ERROR 
DISPLAY "COBOL ERROR IN CSACEB CALL - CHECK RETURN CODES" 
DISPLAY "COBOL RETURN CODE IS: " MINOR-RETURN-CODE 
DISPLAY "PROGRAM WILL TERMINATE" 
MOVE 1 TO ERROR-IN-CALL- SW 
ELSE 
NEXT SENTENCE. 
305-EXIT. 
EXIT. 
*EJ ECT 
400-SEND-RECORD. : 
REKEKKEKEEKKEEREERKEREKEREKEKEEKEEEKKKEKEKEAKEEKERKRKKRKRKKKRRKEKKEKRKKEKKE 
THIS ROUTINE WILL ISSUE THE CSSEND CALL TO SEND THE DATA 
TO THE HOST, THE FIRST FOUR BYTES OF THE DATA CONTAIN THE * 
HOST CICS TRANSACTION CODE (ADLO) WHICH CAUSES CICS TO LOAD * 
THE PROGRAM ASSOCIATED WITH THAT TRANSACTION AND BEGINS THE * 
PROGRAM TO PROGRAM CONVERSATION. THIS CALL IS MADE ~ 
SYNCHRONOUSLY SINCE THE DESIGN OF THE PROGRAMS IS TO SEND * 
A MESSAGE THEN WAIT FOR THE RETURN MESSAGE. ALSO, THE = 
ENTIRE MESSAGE IS DELIVERED TO AIF, NOT MESSAGE SEGMENTS, - 
BREKREKEEKEREEKEEKEEKEREKKERKEEREREKEKKKKKEEEKKEEEEKREEKREKEKEKEEKKEEE 
*#RREXDISPLAY "GOING TO DO CSSEND NOW". 
CALL "CSSEND" USING SNA-WORK~AREA 
SEND-DATA~BUFFER 
SEND-BUFFER-SIZE 
DATA~-BUFFER-ALIGNMENT 
SYNC~CALL 
REPLY-REQUEST 
WHOLE~MSG- INDICATOR 
FMH- INDICATOR 
ROD-INDICATOR. 
REKEKEKKKEKEEERKEKEEKERKEEEKEEKEKEREKRKKKKKKKKKERKKKKKKKRRRKRKRKRKRKKKRKKKRKKS 
* CHECK THE RETURN CODE VALUES NEXT TO MAKE SURE THE CALL HAS * 
* COMPLETED WITHOUT ANY ERRORS. * 
KREREKKEEEEEKKEEREKEEEEERERERREEEEEEKEKEREKEKEEREKEREKEREKEKKEKKEEKERESR 
PERFORM 900-CHECK-RETURN THRU 900-EXIT. 
IF OK-TO-CONTINUE 
NEXT SENTENCE 
ELSE 
DISPLAY "ERRORS FROM CSSEND REQUEST - CHECK RETURN CODES" 
DISPLAY "PROGRAM WILL TERMINATE". 
EXIT. 
*EJECT 
500-RECEIVE-INFO. 


% oe OF OF 
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REEKKEEEKEEEKEEEEEEEEEERREEEREEEEKEKEKKEREEREEKEEEKEEKEKEKERKEEERKEREE 


* THIS ROUTINE WILL ISSUE THE CSRECV CALL TO RECEIVE THE * 
* DATA FROM THE HOST TRANSACTION PROGRAM. THIS CALL IS MADE * 
*  SYNCHRONOUSLY AND THE PROGRAM EXPECTS THE ENTIRE MESSAGE +* 
* TO BE DELIVERED. * 
KRAKEKKEKKEKEKKEKKEKKEKREKEERREKEEKEEEKEKEEKEEEEKEEKEEREREKKEEKEEERKEEKER 
*****DISPLAY "GOING TO DO CSRECV" 
CALL "CSRECV" USING SNA-WORK-AREA 
RECEIVE-DATA- BUFFER 
RECEIVE-BUFFER-SIZE 
DATA-BUFFER-ALIGNMENT 
SYNC-CALL 
WHOLE-MSG- INDICATOR 
RECEIVED-DATA-LENGTH 
OUTPUT-CONTROL-WORD. 
KEEKEEEKEKEKEKEEEEKEEKREKEEEREREREREKREREEEREKKEEKEKEEEKREREKEKEEEKKRKES 
* CHECK THE RETURN CODE VALUES NEXT TO MAKE SURE THE CALL HAS * 
* COMPLETED WITHOUT ANY ERRORS. * 
KREKERKEKEKEKKEEEKEEKEREKREKEEREKEEKEKEREKREREEREEREEERREEREEKREEKEKEKEEEE 
PERFORM 900-CHECK-RETURN THRU 900-EXIT. 
IF OK-TO-CONTINUE 
NEXT SENTENCE 
ELSE 
DISPLAY "ERRORS FROM CSRECV ~ CHECK RETURN CODES" 
DISPLAY "PROGRAM WILL TERMINATE" 
GO TO 500-EXIT. 
505-CHECK-STATUS-WORD. 
RREKKEKEEKEKKEKEKEEKRREKREREREKEKEEEKEREEKEKEEEEKEEEREEKEKEEEEERKEKEEEKEKE 
* THIS ROUTINE WILL CHECK THE OUTPUT CONTROL WORD STATUS * 
* FIELDS TO DETERMINE WHAT CONTROL INFORMATION WAS RETURNED * 
* TO THE PROGRAM BESIDES TEE DATA, THE CONTROL INFORMATION * 
* WOULD INDICATE ADDITIONAL PROCESSING THIS PROGRAM WOULD * 
* HAVE TO DO BEFORE CONTINUING NORM : THE * 
* % 
* % 
* * 
* * 


DESIGN OF THE TWO COMPLEMENTARY PROGRAMS WOULD INDICATE 
WHETHER ANY SPECIAL PROCESSING, LIKE CHAINING OR DEFINITE 
RESPONSE, WOULD HAVE TO BE HANDLED. 
RHEE AEKEEEREREREKREREEEEERKEEEERREREREREKEREREREEREEREEREREEREE 
IF CHANGE-DIRECTION~-RCVD 
DISPLAY “HOST PROGRAM IS WAITING TO RECEIVE NOW*" 
ELSE 
NEXT SENTENCE. 
IF MSG-WITH-EB~ RECEIVED 
DISPLAY "HOST TRANSACTION HAS ENDED - PROGRAM CAN SEND® 
ELSE 
NEXT SENTENCE, 
IF DEFINITE-RESPONSE-RCVD 
DISPLAY “HOST PROGRAM IS EXPECTING A RESPONSE" 
DISPLAY “ISSUE A CSSRSP CALL NEXT" 
ELSE 
NEXT SENTENCE. 
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IF RCVD-DATA-HAS~-FMH 
DISPLAY "DATA FROM HOST CONTAINS FMH INFORMATION" 
DISPLAY "CHECK THE FMH DATA BEFORE CONTINUING" 
ELSE | : | 
NEXT SENTENCE, 
IF BEGIN-CHAIN-RCVD 
DISPLAY "HOST PROGRAM HAS SENT THE BEGINNING OF A CHAIN" 
DISPLAY " OF DATA - MULTIPLE RECEIVES MAY BE REQUIRED" 
ELSE 
NEXT SENTENCE. 
IF END-CHAIN-RCVD 
DISPLAY "LAST RECEIVE CALL HAS ENDED THE CHAIN" 
ELSE 
NEXT SENTENCE, 
500-EXIT. 
EXIT. 
* EJECT 
600- -COMPARE-INOUT, 
KERR KEKE KKK ER EKER ERR ERE ER ERE EEE KEE EERE EREREKEREREEKREEKKKES 
* THIS ROUTINE WILL COMPARE THE DATA RECEIVED FROM THE HOST - 
* WITH THE DATA ORIGINALLY SENT. IF THEY ARE NOT THE SAME x 
* A SWITCH IS SET AND ERROR MESSAGES ARE DISPLAYED. ys 
KHKKKKEEKREREERE REE EE EEE KEE KEE REE REE ERE ERE REE ERERREEKEREEEREKEKE 
DISPLAY "GOING TO COMPARE RECORD SENT TO RECEIVED NOW". 
MOVE RECEIVE-RECORD TO DATA-FROM-HOST. 
COMPUTE SEND-BUFFER-SIZE = SEND-BUFFER-SIZE - 4. 
IF SEND-BUFFER-SIZE IS EQUAL TO RECEIVED-DATA~LENGTH 
NEXT SENTENCE 
ELSE | 
DISPLAY "BUFFER LENGTHS ARE NOT THE SAME" ° 
DISPLAY "SEND LENGTH: " SEND-BUFFER-SIZE 
" RECEIVE LENGTH: " RECEIVED-DATA~LENGTH. 
MOVE 0 TO COMPARE-REC-SW —— 
NUMBER-CHARS 
NO-MORE- SW 
INDX1. 
PERFORM 800-COMPARE~EACH=FIELD THRU 800-EXIT 
VARYING INDX1 FROM 1 BY 1 
UNTIL NO-MORE~ TO-CHECK . 
IF COMPARE-OK 
DISPLAY "DATA FROM HOST IS THE SAME AS DATA SENT". 
ELSE 
DISPLAY "DATA FROM HOST IS NOT THE SAME AS DATA SENT" 
DISPLAY "POSSIBLE LOGIC ERROR". 
605-CONVERT-DATA. 


Figure C-l1 (cont). Sample COBOL Program for LU Type 0 for 
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KKK RRR KER ERE EKER EERE KERR EKER EEE ERE EEE EERE EERE EERE EEEREREREE 


* THIS ROUTINE WILL CONVERT THE RECEIVED DATA FROM EBCDIC TO * 
* ASCII AND DISPLAY THE RECORD ON THE TERMINAL. 
KEKKEKKEKKEKKEKEKERKEKEKERERKEKEEKEREKEEEEKKEKEEEKKEKKEREEKKEKEEKKEEKEEE 
COMPUTE CONVERSION-LENGTH = RECEIVED-DATA-LENGTH. 
CALL "CSEBAC" USING SNA-WORK-AREA 
DATA-F ROM-HOST 
TRANSLATE-F ROM- POSITION 
DATA-FROM- HOST 
TRANSLATE- TO- POSITION 
CONVERSION-LENGTH. 
IF CALL-FORMAT-ERROR 
DISPLAY "COBOL ERROR IN CSEBAC CALL - CHECK RETURN CODES" 
DISPLAY "COBOL RETURN CODE IS: " MINOR-RETURN-CODE 
DISPLAY "PROGRAM WILL TERMINATE" 
MOVE 1 TO ERROR-IN-CALL- SW 
GO TO 600-EXIT 
ELSE 
NEXT SENTENCE. 
DISPLAY "RECIEVED DATA IS: ". 
DISPLAY DATA-FROM-HOST. 
600-EXIT. 
EXIT. 
*SKIP3 
700-GET-INTERRUPT-INFO. 
KRKEKEKEERREEEKREEEEEEKEEEEEREREEREEREEEREEEREEEREKEKEKEREKREREEEEEESE 
THIS ROUTINE WILL ISSUE A CSRI CALL IN ORDER TO PICK UP THE 
LENGTH OF ANY INTERRUPT INFORMATION THAT IS BEING RETURNED 
TO THE PROGRAM. AFTER THIS CALL IS COMPLETED A CSWANY MUST 
BE ISSUED BECAUSE A CSRI IS AN ASYNCHRONOUS CALL. A CSRECV 
WOULD BE ISSUED AFTER THAT IF THERE IS AN INTERRUPT MESSAGE 
TO PICK UP. THE INTERRUPT TYPE RETURNED ON THE ORIGINAL 
SESSION CALL WILL INDICATE WHAT FURTHER PROCESSING THE 
PROGRAM SHOULD DO NEXT, WE JUST DISPLAY ANY INFORMATION 
RETURNED TO THE PROGRAM THEN CONTINUE NORMAL PROCESSING. 
* SOME INTERRUPTS MAY REQUIRE OTHER PROCESSING LOGIC. 
REEEEEKEEEKEREKEREERERERERKEEEREKREEEEEKREREEKEEEEEEREEREREKEEREEE 
*****DISPLAY "GOING TO ISSUE CSRI CALL NOW" 
CALL "CSRI" USING SNA-WORK-AREA 
INTERRUPT-DATA-LENGTH. 
KRREKKEREKAEEKAKEEKERERREREEEREREEEKEERREEREEREERERREERERKEKEEEEREEEE 
* CHECK THE RETURN CODE VALUES NEXT TO MAKE SURE THE CALL HAS * 
* COMPLETED WITHOUT ANY ERRORS. * 
KKEKEKEKEKEKKEEEEEREREKEEEKKEKREEKEREEKEREEREREERKEKEKEEKEKRERKEEREEKREE 
PERFORM 900-CHECK-RETURN THRU 900-EXIT. 
IF OK-TO-CONTINUE 
NEXT SENTENCE 
ELSE 
DISPLAY "ERRORS FROM CSRI - CHECK RETURN CODES" 
DISPLAY "PROGRAM WILL TERMINATE" 
GO TO 700-EXIT. 


+ + + 2 He eH He 
e+e & & HH & H HF BH F 


Figure C-1 (cont). Sample COBOL Program for LU Type 0 for 
DPS 6-Initiated Session 


C-11 GR11-02 


KHEKKEKEEKEKEKEEKEKEKEEEKEKEEKEREKERKEREKKRKEEKKEKERKEKKKKKKRKKEKKRKEKKES 


* ISSUE THE CSWANY CALL TO FORCE THE PROGRAM TO WAIT FOR THE * 
* RETURN FROM THE CSRI CALL. | * 
BEKELE KKKEKKEEEK HE EERE ERE 
CALL "CSWANY" USING SNA-WORK-AREA. | 
KHKKRAEKKEKEEKEEREREREKEEEEKEERKEEEREEEEEKEREERKEEREEKKEEREEKKKEEKEKEKKKKE 
* CHECK THE RETURN CODE VALUES NEXT TO MAKE SURE THE CALL HAS * 
* COMPLETED WITHOUT ANY ERRORS. * 
KRAEEEKEKEEREKEEEKEREEEREEEERERREERKEREEEEEREERKREERKERRKRRR REE KEE 
PERFORM 900-CHECK-RETURN THRU 900-EXIT. 
IF OK-TO-CONTINUE 
NEXT SENTENCE 
ELSE 
- DISPLAY "ERRORS FROM CSWANY - CHECK RETURN CODES" 
DISPLAY "PROGRAM WILL TERMINATE" 
GO TO 700-EXIT. 
IF INTERRUPT-DATA-LENGTH IS EQUAL TO ZERO 
DISPLAY "NO INTERRUPT MESSAGE RECEIVED - CONTINUE" 
GO TO 700-EXIT ; 
ELSE = : 
DISPLAY "NEED TO DO CSRECV FOR INTERRUPT MESSAGE". 
MOVE INTERRUPT-DATA-LENGTH TO RECEIVE-BUFFER-SIZE. 
CALL "CSRECV" USING SNA-WORK-AREA 
RECEIVE-DATA-BUFFER 
RECEIVE-BUFFER-SIZE 
DATA~BUFF ER-ALIGNMENT 
SYNC-CALL 
WHOLE~MSG~- INDICATOR 
RECEIVED-DATA-LENGTH 
OUTPUT—-CONTROL-WORD. 
SRR RRA IRR RRR RRR RR IARI AIR IAAI IMA ABR AI AAA ANA I A RI 
* CHECK THE RETURN CODE VALUES NEXT TO MAKE SURE THE CALL HAS * 
* COMPLETED WITHOUT ANY ERRORS. * 
KREKEKKKKKKEEEKAEKEREEEREKKEEREKERERKAKRARREKEKKERRKRRKKKRKKRKREKESE 
PERFORM 900-CHECK~-RETURN THRU 900-EXIT. 
IF OK-TO-CONTINUE 
NEXT SENTENCE 
ELSE | 
DISPLAY "ERRORS FROM CSRECV (I) - CHECK RETURN CODES" 
DISPLAY "PROGRAM WILL TERMINATE" ; 
GO TO 700-EXIT. 
Levene Saeed akKa eed Kaa REE AAD EEO ERS RRR oo eS 
* THIS ROUTINE WILL CONVERT THE RECEIVED DATA FROM EBCDIC TO * 
* ASCII AND DISPLAY THE RECORD ON THE TERMINAL. * 
KEKKKKEEKEKEEKEEEKEERKEREEERKEKEKEEEERREAREEARKEE KEE RRR EE 
COMPUTE CONVERSION-LENGTH = RECEIVED-DATA-LENGTH. 
CALL "CSEBAC" USING SNA-WORK-AREA 
RECEIVE-DATA-BUFFER 
TRANSLATE-FROM= POSITION 
RECEIVE-DATA-BUFFER 
TRANSLATE- TO- POSITION 
CONVERSION-LENGTH. 
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IF CALL-FORMAT-ERROR 
DISPLAY "COBOL ERROR IN CSEBAC CALL - CHECK RETURN CODES" 
DISPLAY "COBOL RETURN CODE IS: " MINOR-RETURN-CODE 
DISPLAY "PROGRAM WILL TERMINATE" 
MOVE 1 TO ERROR-IN-CALL- SW 
GO TO 600-EXIT 
ELSE | 
NEXT SENTENCE. 
DISPLAY "INTERRUPT INFORMATION IS: " RECEIVE-DATA-BUFFER. 
700-EXIT. | 
EXIT. 
*EJECT 
800-COMPARE-EACH-FIELD. 
IF CHECK-INPUT-FIELD (INDX1) IS EQUAL TO DATA-FIELD (INDX1) 
ADD 1 TO NUMBER-CHARS 
ELSE 
ADD 1 TO NUMBER-CHARS 
DISPLAY "CHARACTER NOT THE SAME IS: " 
NUMBER-CHARS 
MOVE 1 TO COMPARE-REC- SW. 
IF INDX1 IS EQUAL TO RECEIVED-DATA-LENGTH 
MOVE 1 TO NO-MORE-SW 
DISPLAY "END OF COMPARE" 
ELSE 
ADD 1 TO INDX2. 
800-EXIT. 
EXIT. 
*SKIP3 
900-CHECK—RETURN. 
EREKKKEKEEKKKEEKKKEEEKEKEKEKEREKEEREEREKREEKEEKEKEKEKEEEEREKEEREKREKEKKEE 
* THIS ROUTINE WILL CHECK THE RETURN CODES FROM THE VARIOUS * 
* AIF CALLS. A SWITCH IS SET TO INDICATE WHETHER THE CALL * 
* WAS OK OR NOT, WHEN THE RETURN CODES ARE NOT OK THEY * 
* WILL BE DISPLAYED ON THE TERMINAL. * 
REKEKKEKEERREKEREKEEKREKEEEKEEEERERERREREEEREREERERREREERERREEREEREE 
MOVE 0 TO ERROR-IN-CALL- SW. 
IF CALL-FORMAT~ERROR 
MOVE 1 TO ERROR-IN-CALL~SW 
DISPLAY "COBOL FORMAT ERROR IN CALL - RETURN CODE IS: " 
MINOR-RETURN-CODE 
DISPLAY "NEXT MESSAGE INDICATES CALL IN ERROR" 
GO TO 900-EXIT 
ELSE 
NEXT SENTENCE. 
IF SOPR-ISSUED-STOP 
DISPLAY "SOPR OPERATOR HAS ISSUED A STOP COMMAND" 
DISPLAY "STOP TIME IS: " SOPR-STOP-TIME 
ELSE 
NEXT SENTENCE, 
IF SESSION-ABORTED 
DISPLAY "LU SESSION HAS BEEN ABORTED - REINIT REQUIRED" 
MOVE 1 TO ERROR-IN-CALL- SW 
ELSE 
NEXT SENTENCE. 
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IF INTERRUPT-RECEIVED 7 
DISPLAY "INTERRUPT FROM HOST OR AIF RECEIVED" 
DISPLAY "INTERRUPT TYPE IS: " INTERRUPT-TYPE 
" RECEIVED SENSE DATA IS: " RECEIVED~SENSE-DATA 
DISPLAY "DO A CSRI FOR ADDITIONAL INFORMATION" 
MOVE 1 TO INTERRUPT-SW 
ELSE | 
MOVE 0 TO INTERRUPT-SW. 
IF CALL-WAS-COMPLETED AND 
MINOR-RETURN-CODE IS EQUAL TO ZEROS 
GO TO 900-EXIT 
ELSE 
NEXT SENTENCE, 
DISPLAY "SESSION CALL CONTAINS ERRORS - RETURN CODE IS: " 
MINOR-RETURN-CODE " MAJOR RETURN CODE IS: " 
MAJ OR-RETURN-CODES. 
MOVE 1 TO ERROR-IN-CALL-SW. 
900-EXIT. 
EXIT. 
*SKIP3 
999-END- PROGRAM. 
REEKKKEEKEKEREEKEREEREEKEKERKRE KEE KEKEKER 
_* HIS ROUTINE WILL BE USED TO ISSUE A CSTERM CALL TO END THE * 
* CONVERSATION WITH THE HOST TRANSACTION AND THE LU SESSION. * 
* A NORMAL TERMINATE IS ATTEMPTED FIRST BUT IF ERRORS ARE * 
* RETURNED THEN AND ABNORMAL TERMINATE IS ATTEMPTED. | * 
KREKKKEKREKEEKEEEKEEEKERREKREKEEREKEEEKEEEREEEEREKRREKEREEKREEKEEKKRERAEESR 
*****DISPLAY "GOING TO TRY A NORMAL TERMINATE NOW". 
- MOVE "N" TO TERMINATE-TYPE 
CALL "CSTERM" USING SNA-WORK-AREA 
| TERMINATE-TYPE. 
KRRKEKKEKREEKEEKEEEERERKEKREKREKEEERKEEKERKEEEKKEEKEEKEKKKKKEKKEKEREEKRESE 
* CHECK THE RETURN CODE VALUES NEXT TO MAKE SURE THE CALL HAS * 
* COMPLETED WITHOUT ANY ERRORS. 
REESE 
PERFORM 900-CHECK-RETURN THRU 900-EXIT. 
IF OK-TO-CONTINUE 
DISPLAY "SESSION TERMINATION COMPLETE" 
GO TO 999-EXIT 
ELSE ; 
DISPLAY "ERRORS FROM CSTERM N — CHECK RETURN CODES" 
DISPLAY "PROGRAM WILL ISSUE ABNORMAL TERMINATE". 
MOVE "A" TO TERMINATE-TYPE. 
CALL "CSTERM" USING SNA-WORK-AREA 
TERMINATE-TYPE. 
999-EXIT. 
EXIT. 
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PROGRAM-ID. 


KEKKEKKKEEEEKKKEKKEEEKEREEEKREEREREKEEEKKEEREEKEREKKEREKEKEKEKREEREKREREKEKEKKK 


THIS IS A SAMPLE LU 0 PROGRAM WHICH WILL EXERCISE SOME OF THE 
THE PROGRAM WILL START A SESSION WITH THE 
IT WILL READ DATA FROM THE TERMINAL, 
AND SEND THE CONVERTED RECORD TO THE HOST 


AIF LUQ COBOL CALLS. 
HOST TRANSACTION ADLO. 


LOS2CH. 


+e ee ee HF FH HF OF OF 


CONVERT IT TO EBCDIC, 
THEN RECEIVE THE RECORD BACK. 


UPON RECEIVING THE DATA BACK, 


THE 


PROGRAM WILL COMPARE THE DATA THAT WAS RECEIVED WITH THE DATA 


SENT DIPLAYING A PROPER MESSAGE ON THE TERMINAL. 


IT WILL 


CONVERT THE RECEIVED DATA TO ASCII AND DISPLAY IT ON THE 


TERMINAL. 


IF THE TERMINAL INPUT DATA STARTS WITH: 
PROGRAM WILL TERMINATE THE SESSION AND END, 


END 3 
OTHERWISE, 


THE 


THE 


PROGRAM WILL GO THROUGH THE SAME PROCESS WITH WHAT HAS BEEN 


RECEIVED FROM THE TERMINAL. 


REKKKEKKEEEKEKEKREEKEEKEEKREKEKREREKEREREEEKREKEEEREEEREREREREREREREEKEEKEEKKKEKK 


ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. LEVEL-6. 


OBJECT-COMPUTER. 


* 
* 


LEVEL~6. 


DATA DIVISION. 
WORKING-STORAGE SECTION. 


O01 START-OF-WS PIC X(32) 
VALUE 
O01 
77  SNA-WORK~AREA 
77 AIF-NODE-NAME 
77 REMOTE-LU-NAME 
77 STD-NAME 
77 SYNC-CALL 
77 ASYNC-CALL 
77 RESTART~SESSION 
77 NEW-SESSION 
77 SESSION-ID 
77 MSG-RESYNC-SEND~SQN 
77 MSG-RESYNC~-RECV- SQN 
01 SEND-DATA~-BUFFER 
77 SEND-BUFFER-SIZE 
77 DATA~BUFFER~ALIGNMENT 
77 REPLY-REQUEST 
77 WHOLE~MSG- INDICATOR 
77 FMH-INDICATOR 
77 RQD-INDICATOR 
01 RECEIVE-DATA-BUFFER. 
05 RECIEVE-TRAN 
05 RECEIVE-RECORD 
77 RECEIVE-BUFFER-SIZE 
77 RECEIVED-DATA~LENGTH 


PIC 


PIC 3 


PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 


PIC 
PIC 
PIC 
PIC 


"START OF WORKING STORAGE SECTION". 
AIF-PARAMETERS PIC X(21) VALUE "AIF PARAMETERS FOLLOW". — 


X(200). 


(4 
(5 
(5) VALUE 
(8 
(5 


ZEROS. 
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77 
77 
77 
77 
01 


77 
01 


77 
77 


Figure C-2 (cont). 


RECV-COMPLETE-MSG 
WORK-AREA-ID 
SEND-RESPONSE-TYPE 
SEND-SENSE-DATA 
RETURN-CODE-VALUES. 
05 MAJOR-RETURN-CODES. 
10 SESSION-ABORT — 
88 +SESSION-ABORTED 


10 STOP-RECEIVED 
88 SOPR-ISSUED-STOP 
10 INTERRUPT-RECVD 
88 INTERRUPT-RECEIVED 
10 SERV-REQ-CANCELLED 
88 CALL-WAS-CANCELLED 
10 SERV-REQ-COMPLETE | 
88 CALL-WAS-COMPLETED 
10 COBOL-ERROR 


88 CALL-~FORMAT~ERROR 
05 MINOR-RETURN-CODE 
INTERRUPT~TY PE 
INTERRUPT-DATA=LENGTH 
TERMINATE~TYPE 
GET-~ATTR-TYPE 
SOPR-STOP-TIHE. 


05 DATE-OF-STOP. 
10 STOP-YEAR 
10 STOP-MONTH 
10 STOP-DAY 


05 TIME-OF-STOP. 
— 10 STOP-HOUR 
10 STOP-MINUTE 
10 STOP-SECONDS 
RECEIVED-SENSE-DATA 


OUTPUT-CONTROL-WORD. 


05 REPLY-REQUEST-CD 
88 CHANGE~DIRECTION-RCVD 
05 DEFINITE-RESPONSE-REQ | 


88 DEFINITE~RESPONSE-RCVD 


05 LAST-MSG-EB 
88 MSG-WITH-EB-RECEIVED 
05 FMH-IN-RCVD-DATA | 
88 RCVD-DATA-HAS-FMH 
05 BEGIN-MSG-RCVD-BC 
88 BEGIN-CHAIN-RCVD 
05 END-MSG-RCVD-EC 
88 END-CHAIN-RCVD 
05 SET-SEND-RECV-SEQ 
88 STSN-RECEIVED 
05 APPL-RESEND-REQUIRED 
88 RESTART-LAST-MSG-INB 
05 HOST-RESEND-REQUIRED 


88 RESTART-LAST-MSG-OUTB 
CONVERS ION-LENGTH 
TRANSLATE~FROM= POSITION 


PIC X VALUE 
PIC X(4) VALUE 
PIC X VALUE 
PIC X(8) VALUE 
PIC X VALUE 
VALUE "Y". 

PIC X VALUE 
VALUE "Y". | 
PIC X VALUE > 
VALUE "Y", 

PIC X VALUE 
VALUE "Y". 

PIC X VALUE 
VALUE "Y". 

PIC X VALUE 
VALUE "Y", 

PIC 9(4) VALUE 
PIC 99 VALUE 
PIC 9(5) VALUE 
PIC X VALUE 
PIC 99 VALUE 
PIC 99.. 

PIC 99. 

PIC 99, 

PIC 99. 

PIC 9(4). 

PIC X(8) VALUE 
PIC X. 

VALUE "Y", 

PIC X. 

VALUE "Y". 

PIC X. 

VALUE "Y" 

PIC X. 

VALUE "Y". 

PIC Ae 

VALUE "Y"., 

PIC X. 

VALUE "Y". 

PIC X. 

VALUE "Y", 

PIC X. 

VALUE "Y" 

PIC X. 

VALUE "Y". 
COMP=-1. 

COMP-1 VALUE 
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77 TRANSLATE-TO- POSITION COMP-1 VALUE 1. 
O01 END-OF-AIF PIC X(21) VALUE "END OF AIF PARAMETERS". 
Ol MISC~-PROGRAM-VARIABLES PIC X(26) VALUE 

"OTHER WORKING STORAGE DATA". 


01 DATA-TO-HOST PIC X(84) VALUE HIGH-VALUES. 
01 DATA-TO-HOST-REDEF REDEFINES DATA-TO-HOST. 
05 HOST~TRANSACTION | PIC X(4). 


05 DPS6-DATA-RECORD. 
10 CHECK-INPUT-FIELD OCCURS 80 TIMES. 
15 DATA-FIELD-CHAR PIC X. 
01 DATA-FROM-HOST. 
05 DATA-FIELD OCCURS 80 TIMES. 


10 DATA-FLD-CHAR PIC X, 
01 DATA-FROM-TERMINAL. 
05 END-INDICATOR PIC XXX. 
88 END-PROGRAM VALUE "END". 
05 FILLER - PIC X(77) VALUE SPACES. 
O01 SWITCH-COUNT-VARIABLES. 
05 INDX1 COMP-1 VALUE l. 
05 INDX2 COMP-1 VALUE 0. 
05 NUMBER-CHARS PIC 9(4) VALUE ZEROS. 
05 CALC-LENGTH COMP-1 VALUE ZEROS. 
05 TEMP-LENGTH PIC 9(5) VALUE ZEROS. 
05 ERROR-IN-CALL-SW PIC 9 VALUE 0. 
88 OK-TO-CONTINUE VALUE 0. 
05 RECORD-CHECK- SW PIC 9 VALUE 0. 
88 RECORD-CHECKED VALUE l. 
05 NO-INPUT-SW PIC 9 VALUE 0. 
88 NO-INPUT-DATA VALUE 1. 
05 COMPARE-REC-SW PIC 9 VALUE 0. 
88 COMPARE-OK VALUE 0. 
05 NO-MORE-SW PIC 9 VALUE 0. 
88 NO-MORE~-TO-CHECK VALUE 1. 
05 INTERRUPT-SwW PIC 9 VALUE 0. 
- 88 INTERRUPT-CALL-NEXT VALUE l. 
01 ENTER-MESSAGE PIC X(80) VALUE 


"PLEASE ENTER DATA TO TRANSMIT TO HOST OR END TO QUIT". 
01 END-OF-WORK-STOR PIC X(19) VALUE "END WORKING STORAGE". 
- LINKAGE SECTION. 


77 NODE-NAME PIC X(8). 
77° STD PIC XX. 
77 BASE-LEVEL PIC 99, 
PROCEDURE DIVISION USING NODE-NAME 
STD 
BASE-LEVEL. 
000-BEGIN. 


DISPLAY "START OF LU 0 SAMPLE COBOL PROGRAM". 

MOVE NODE-NAME TO AIF-NODE-NAME. 

MOVE STD TO STD-NAME. 

DISPLAY "AIF NODE IS: “" NODE-NAME " STD IS: " STD. 
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KREKEKKEKEKEKEEEKEEEEEEEEEKEREKEEEEKREEEEKEREREREKEEEKREKEEEEEKEKKREKKEEEE 


* START BY TRYING TO ATTACH TO A SESSION THAT WAS STARTED BY * 
* THE HOST CICS TRANSACTION ADLH. * 
KEKE KEKE KEKE KR REE EKER REE EREREREEEEREREEEEEEKREEEKEEKEKRE 
PERFORM 100-ACCEPT-SESSION THRU 100-EXIT. 
IF OK-TO-CONTINUE 
NEXT SENTENCE 
ELSE 
: GO TO 099-TERMINATE. 
KK KK KKK EKER ER ERE KER EKER RRR RHEE REE REE REE ERE ERE 
* IF THE SESSION IS CONNECTED THEN WE MUST ISSUE A RECEIVE 
* CALL SINCE A HOST INITIATED PROGRAM COMES UP IN RECEIVE cs 
* STATE TO RECEIVE AT A MININUM THE TRANSACTION NAME SENT * 
* BY THE HOST, * 
KRKEKREKEKREKEEKKEEKEERKEKEEKEERERKEEKEEEREREREEEREKREREEKEREREREEREKEKEERER 
PERFORM 500-RECEIVE-INFO THRU 500-EXIT. 
IF OK-TO-CONTINUE 
NEXT SENTENCE 
ELSE | | 
DISPLAY "INITIAL CSRECV PROBLEM - PROGRAM WILL TERMINATE" 
' PERFORM 999-END-PROGRAM THRU 999~EXIT 
GO TO 099-TERMINATE. 
KREEKEKEKEKREEKREKEKEKKEREKEREKEEKRREKEREEERKEKEREREKEKEKREREERKKKREKEKRREEKS 
* IF THE SESSION IS CONNECTED THEN WE CAN PROCEED WITH THE * 
* REMAINDER OF THE PROGRAM PROCESS. | * 
BR eR Oe Ny RI RN Re OR eR eR ee eg ee ee we ne een ee eee 
005-CONTINUE. 
MOVE "ADLH" TO HOST-TRANSACTION. 
PERFORM 200-GET-RECORD THRU 200-EXIT. 
IF END-PROGRAM 
DISPLAY "END OF RUN REQUESTED - PROGRAM WILL END" 
PERFORM 999-END-PROGRAM THRU 999-EXIT 
GO TO 099-TERMINATE 
ELSE 
NEXT SENTENCE. 
MOVE HIGH-VALUES TO DPS6-DATA-RECORD. 
MOVE SPACES TO DATA-FROM-HOST 
RECEIVE-RECORD. 
MOVE DATA-FROM-TERMINAL TO DPS6-DATA-RECORD, 
MOVE 0 TO INDX1 
NO- INPUT~ SW 
RECORD-CHECK~ SW 
SEND-BUFFER-SIZE. 
PERFORM 300-CHECK-TERMINAL-DATA THRU 300-EXIT VARYING INDX1 
FROM 1 BY 1 UNTIL RECORD-CHECKED. 
IF NO-INPUT-DATA 
DISPLAY "NO DATA WAS ENTERED FROM THE TERMINAL" 
DISPLAY "PLEASE KEY SOME DATA BEFORE HITTING ENTER KEY" 
GO TO 005-CONTINUE 
ELSE | 
NEXT SENTENCE. 
MOVE DATA-TO-HOST TO SEND-DATA-BUFFER, 
PERFORM 400-SEND-RECORD THRU 400-EXIT. 
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IF OK-TO-CONTINUE 
| NEXT SENTENCE 
ELSE 
PERFORM 999-END-PROGRAM THRU 999-EXIT 
GO TO 099-TERMINATE. 
IF INTERRUPT-CALL-NEXT 
PERFORM 700-GET-INTERRUPT-INFO THRU 700-EXIT 
ELSE 
NEXT SENTENCE. 
IF OK-TO-CONTINUE 
NEXT SENTENCE 
ELSE 
PERFORM 999-END-PROGRAM THRU 999-EXIT 
GO TO 099-TERMINATE. 
010-DO-RECEIVE. 
PERFORM 500-RECEIVE-INFO THRU 500-EXIT. 
IF OK-TO-CONTINUE 
NEXT SENTENCE 
ELSE 
PERFORM 999-END-PROGRAM THRU 999-EXIT 
GO TO 099-TERMINATE. 
PERFORM 600-COMPARE-INOUT THRU 600-EXIT. 
020-CHECK-COMPARE. 
IF COMPARE-OK 
DISPLAY "PROGRAM WILL CONTINUE" 
ELSE 
DISPLAY "CHECK PROGRAM LOGIC - SESSION WILL TERMINATE" 
PERFORM 999-END-PROGRAM THRU 999-EXIT 
GO TO 099-TERMINATE. 
IF OK-TO-CONTINUE 
NEXT SENTENCE 
ELSE 
PERFORM 999-END-PROGRAM THRU 999-EXIT 
GO TO 099-TERMINATE. 
IF INTERRUPT-CALL-NEXT 
PERFORM 700-GET-INTERRUPT-INFO THRU 700-EXIT 
ELSE 
NEXT SENTENCE. 
GO TO 005-CONTINUE. 
099-TERMINATE. 


STOP RUN. 
be 


w 
* 


100-ACCEPT-SESSION. 
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re eee REESE REE REE E SES ERAS ERR ERE ERE LES EARLE SER ESSERE RARE SERRE ES EEE ES SE 


= THIS ROUTINE WILL ISSUE A CSACPT TO ATTEMPT TO CONNECT TO “ 
* AN AIF SESSION THAT HAS A BIND PENDING FROM CICS. THIS coh 
= IS ALWAYS MADE SYNCHRONOUSLY. 
KKK KERR EEK REREEKEERERKREKEKRERERREKERREKREEREREAEKEAERAKEEAEEREEKS 
DISPLAY "GOING TO DO CSACPT NOW". 
CALL "CSACPT" USING SNA~WORK-AREA 
AIF-NODE-NAME 
REMOTE-LU- NAME 
STD~NAME 
SYNC-CALL 
NEW-SESSION 
SESSION-ID 
MSG-RESYNC-SEND- SQN 
MSG- RESYNC- RECV~-SQN 
RETURN-CODE-VALUES 
INTERRUPT-TYPE 
SOPR-STOP-TIME 
RECEIVED-SENSE~DATA. 
KRAEEKKAKEKEEKKKKKRAEEKEKERRERRKRREREEREKEEREREKRKEKREKEEERRKEEKRKEKEKESR 
* CHECK THE RETURN CODE VALUES NEXT TO MAKE SURE THE CALL HAS * 
* COMPLETED WITHOUT ANY ERRORS. * 
KRAEKEKKKEEKKEKKEEKEEKEKEREEKEEKKEREREREKEERKEEREERERRREEEKREERKEERRKRER 
PERFORM 900-CHECK~RETURN THRU 900-EXIT. 
IF OK~TO-CONTINUE 
NEXT SENTENCE 
ELSE : | _ 
DISPLAY "ERRORS FROM CSINIT REQUEST - CHECK RETURN CODES" 
DISPLAY "PROGRAM WILL END ~ NO SESSION" 
GO TO 100-EXIT. 
DISPLAY "SESSION HAS BEEN ESTABLISHED - ID IS: °* 
7 SESSION-ID. 
IF INTERRUPT-CALL-NEXT 
PERFORM 700-GET-INTERRUPT-INFO THRU 700-EXIT 
ELSE 
NEXT SENTENCE, 
100-EXIT. 
EXIT. 
*EJECT 
200-GET-RECORD. 
MOVE HIGH-VALUES TO DATA-FROM~TERMINAL. 
ree eee eee eee EERE RSS ER SESE SEE REESE LER ERE SERA ESE RSE REE REELS EERE RE SE SD 
* NOW GET SOME DATA FROM THE TERMINAL OPERATOR TO SEND TO THE * 
* HOST REMOTE PROGRAM. 
RAEKKEKEKEKEKEEKKKEEKEEEEEEEEKEEKEKEEEKKREEREKEEERERKEEREEKREKKKKRKRKRKES 
DISPLAY ENTER-MESSAGE. 
ACCEPT DATA-FROM~TERMINAL. 
EXIT. 
*SKIP3 
300-CHECK~TERMINAL~DATA. 
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KRKEKKEKEKEKEKEKKEKEEKKEKEKEEEEKEKEKREKKKEREKEKEKEEEEEEEKEKEKEEREREEREKEREER 


- NOW CHECK THE INPUT FROM THE TERMINAL TO SEE IF ANY DATA * 
: WAS ENTERED AND CALCULATE THE LENGTH OF THE DATA ENTERED * 
. THEN CONVERT THE DATA TO EBCDIC. - 
KEKEKKKKKKEKKKEEEREEKKKKEREREEREKKEREREREEKKEEKEERKEEEKREKKEEKREKEKEEEKKEKEEKE 
IF CHECK-INPUT-FIELD (INDX1) IS EQUAL TO HIGH-VALUES 
MOVE 1 TO RECORD-CHECK-SW 
COMPUTE CALC-LENGTH = INDX1 - 1 
IF CALC-LENGTH IS EQUAL TO ZEROS OR 
CALC-LENGTH IS LESS THAN ZEROS 
MOVE 1 TO NO-INPUT-SW 
GO TO 300-EXIT 
ELSE 
COMPUTE SEND-BUFFER-SIZE = SEND-BUFFER-SIZE + 4 
COMPUTE CONVERSION-LENGTH = SEND-BUFFER-SIZE 
PERFORM 305-CONVERT-RECORD THRU 305-EXIT 
ELSE | 
ADD 1 TO SEND-BUFFER-SIZE. 
300-EXIT. 
EXIT. 
*SKIP3 
~305-CONVERT- RECORD. 
KRAEREKKERKEKEKKERKEEKEEKEEKKEERREREEKEKRERKEEEEEKEEKEEEKEEREKKEEKEKEKEEKEKEKE 
" THIS ROUTINE WILL ISSUE THE CSACEB CALL TO CONVERT THE DATA * 
= FROM THE TERMINAL AND THE HOST TRANSACTION NAME TO EBCDIC * 
* BEFORE THE DATA IS SENT TO THE HOST CICS SYSTEM. * 
REREKKEREREEKKEREEEKEREEREEEKREREEEEKEEEREREEEEKKEEEKEREEKKEEEKKKREEESK 
CALL "CSACEB" USING SNA-WORK-AREA 
DATA-TO-HOST | 
TRANSLATE-FROM- POSITION 
DATA-TO-HOST 
TRANSLATE- TO- POSITION 
CONVERSION-LENGTH. 
IF CALL-FORMAT- ERROR 
DISPLAY "COBOL ERROR IN CSACEB CALL - CHECK RETURN CODES* 
DISPLAY "COBOL RETURN CODE IS: * MINOR-RETURN-CODE 
DISPLAY “PROGRAM WILL TERMINATE*® 
MOVE 1 TO ERROR-IN-CALL= SW 
ELSE 
NEXT SENTENCE. 
305-EXIT. 
EXIT, 
*EJ ECT 
400-SEND-RECORD. 
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KRKKKEKEKKEEKEEKREKEEREEEREREREREEREEKREEEKREEERKEEREREKREKRKERKKKRKRRKRKEREK 


THIS ROUTINE WILL ISSUE THE CSSEND CALL TO SEND THE DATA 
TO THE HOST. THE FIRST FOUR BYTES OF THE DATA CONTAIN THE 
HOST CICS TRANSACTION CODE (ADLO) WHICH CAUSES CICS TO LOAD 
THE PROGRAM ASSOCIATED WITH THAT TRANSACTION AND BEGINS THE 
PROGRAM TO PROGRAM CONVERSATION. THIS CALL IS MADE 
SYNCHRONOUSLY SINCE THE DESIGN OF THE PROGRAMS IS TO SEND 
A MESSAGE THEN WAIT FOR THE RETURN MESSAGE. ALSO, THE 
* ENTIRE MESSAGE IS DELIVERED TO AIF, NOT MESSAGE SEGMENTS. 
RKEEKKEKEKKEKKKEREEKEREEEKKKREKEKEEKEEEEEEREEEEEREREEEREEEREREEREKKERS 
*****DISPLAY "GOING TO DO CSSEND NOW". 
CALL "CSSEND" USING SNA-WORK-AREA 
SEND-DATA-BUFFER 
SEND~BUFFER-SIZE 
DATA-BUFFER-ALIGNMENT 
SYNC-CALL 
REPLY-REQUEST 
WHOLE-MSG- INDICATOR 
FMH- INDICATOR 
RQD- INDICATOR. 
HK KKK KR REE RE REI REE IR REE REI KE REE KER E REE REE REREEREEE 
* CHECK THE RETURN CODE VALUES NEXT TO MAKE SURE THE CALL HAS * 
* COMPLETED WITHOUT ANY ERRORS. * 
KEKKKEKEKKEKEEKKEKEEKEEKEEREREREREKREEREREEEEKKEEERKEEEEKREEEEREREREREKRKEKEKRE 
PERFORM 900-CHECK-RETURN THRU 900-EXIT. 
IF OK-TO-CONTINUE 
NEXT SENTENCE 
ELSE 
DISPLAY "ERRORS FROM CSSEND REQUEST - CHECK RETURN CODES" 
_ DISPLAY "PROGRAM WILL TERMINATE". 
400-EXIT. | 
EXIT. 
*EJECT 
500-RECEIVE-INFO, | 
KREAKKKEKEEKEEREKEEREREREEKREREREREREEREREREREREREEKEEKREREREKREREREKEEE 
* THIS ROUTINE WILL ISSUE THE CSRECV CALL TO RECEIVE THE * 
* DATA FROM THE HOST TRANSACTION PROGRAM. THIS CALL IS MADE * 
*  SYNCHRONOUSLY AND THE PROGRAM EXPECTS THE ENTIRE MESSAGE * 
* TO BE DELIVERED. | 
REEKEKREKEKEKEKEKEEKEKERKEEKEKEEREKEREEKEKEKEEEKKEEEKREERRRRKRKKREREKKESE 
**x***DISPLAY "GOING TO DO CSRECV" 
CALL "CSRECV" USING SNA-WORK~AREA 
RECEIVE-DATA-BUFFER 
RECEIVE-BUFFER-SIZE 
DATA-BUFFER-ALIGNMENT 
SYNC~CALL 
WHOLE-MSG- INDICATOR 
RECEIVED=DATA-LENGTH 
OUTPUT-CONTROL-WORD. 


% OF OF Ob OF 
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RREKKEREKEKEEKKKRREEKEERERREKRKEEEEEEEREEEEEREKKEEEKEEEKEREEEREKEEKEKEEE 


x CHECK THE RETURN CODE VALUES NEXT TO MAKE SURE THE CALL HAS * 
= COMPLETED WITHOUT ANY ERRORS. - 
REKEAEEKEKEKEEKEEREKKEEEKEREEKREEEEEKEREKEEREKKEEKEEKEEEKEKEKRKEEKEREKEE 
PERFORM 900~CHECK-RETURN THRU 900-EXIT. 
IF OK-TO-CONTINUE 
NEXT SENTENCE 
ELSE 
DISPLAY "ERRORS FROM CSRECV - CHECK RETURN CODES" 
DISPLAY "PROGRAM WILL TERMINATE" 
GO TO 500-EXIT. 
505-CHECK-STATUS-WORD. 
KEEKEKKKKEEEEEEKEEEEKEKEEEEEEKEEEKEKEKREKREKREEEKEEKREEEEKEEKEEEEKEKEEEEEK 
THIS ROUTINE WILL CHECK THE OUTPUT CONTROL WORD STATUS 
. FIELDS TO DETERMINE WHAT CONTROL INFORMATION WAS RETURNED 
* TO THE PROGRAM BESIDES THE DATA. THE CONTROL INFORMATION 
. WOULD INDICATE ADDITIONAL PROCESSING THIS PROGRAM WOULD 
. HAVE TO DO BEFORE CONTINUING NORMAL PROCESSING. THE 
* DESIGN OF THE TWO COMPLEMENTARY PROGRAMS WOULD INDICATE 
* WHETHER ANY SPECIAL PROCESSING, LIKE CHAINING OR DEFINITE 
* RESPONSE, WOULD HAVE TO BE HANDLED. 
REKEKKEKEKEKEEEKKKEKEKEKEREEKEEREKEEREREKREEEEREEREEKEKREEEKKEKEKEKEKEKKKKEK 
IF CHANGE-DIRECTION-RCVD 
DISPLAY "HOST PROGRAM IS WAITING TO RECEIVE NOW" 
ELSE 
NEXT SENTENCE. 
IF MSG-WITH-EB- RECEIVED 
DISPLAY "HOST TRANSACTION HAS ENDED = PROGRAM CAN SEND" 
ELSE 
NEXT SENTENCE. 
IF DEFINITE-RES PONSE=RCVD 
DISPLAY "HOST PROGRAM IS EXPECTING A RESPONSE" 
DISPLAY "ISSUE A CSSRSP CALL NEXT*® 
ELSE 
NEXT SENTENCE. 
IF RCVD-DATA~HAS-FMH 
DISPLAY "DATA FROM HOST CONTAINS FMH INFORMATION" 
DISPLAY "CHECK THE FMH DATA BEFORE CONTINUING" 


+e +t He He HF HF He F 


ELSE 
NEXT SENTENCE. 
IF BEGIN-CHAIN=RCVD 
DISPLAY "HOST PROGRAM HAS SENT THE BEGINNING OF A CHAIN" 
DISPLAY “ OF DATA - MULTIPLE RECEIVES MAY BE REQUIRED" 
ELSE 
NEXT SENTENCE. 
IF END-CHAIN-RCVD 7 
DISPLAY "LAST RECEIVE CALL HAS ENDED THE CHAIN" 
ELSE 
NEXT SENTENCE. 
500-EXIT. 
EXIT. 
* EJECT 
600-COMPARE~INOUT. 


Figure C-2 (cont). Sample COBOL Program for LU Type 0 for 
Host-Initiated Session 


C-23 GR11-02 


HHKAKKKKEKKKEKKEEKEEEKKEEREKEEEEKREREEREREEKKEREERERERKEEEEEREEKKEEEKKEKER 


* THIS ROUTINE WILL COMPARE THE DATA RECEIVED FROM THE HOST * 
* WITH THE DATA ORIGINALLY SENT, IF THEY ARE NOT THE SAME * 
* A SWITCH IS SET AND ERROR MESSAGES ARE DISPLAYED. 
SHEAEKKEKKEEEKEREKEKEEREEEEREREREREEEEKEEEKEEKEKEREEEKEREEEKKRKKKKKEKRKS 
DISPLAY "GOING TO COMPARE RECORD SENT TO RECEIVED NOW". 
MOVE RECEIVE-RECORD TO DATA-FROM-HOST. 
IF SEND-BUFFER-SIZE IS EQUAL TO RECEIVED-DATA-LENGTH 
NEXT SENTENCE 
ELSE 
DISPLAY "BUFFER LENGTHS ARE NOT THE SAME" 
DISPLAY "SEND LENGTH: " SEND-BUFFER-SIZE 
" RECEIVE LENGTH: " RECEIVED-DATA-LENGTH. 
MOVE 0 TO COMPARE-REC- SW | 
NUMBER-CHARS > 
NO-MORE- SW 
INDX1. 
COMPUTE RECEIVED-DATA-LENGTH = RECEIVED-DATA-LENGTH - 4. 
PERFORM 800-COMPARE-EACH-FIELD THRU 800-EXIT | 
, VARYING INDX1 FROM 1 BY 1 
UNTIL NO-MORE-TO-CHECK. 
IF COMPARE-OK 
DISPLAY "DATA FROM HOST IS THE SAME AS DATA SENT" 
ELSE 
DISPLAY "DATA FROM HOST IS NOT THE SAME AS DATA SENT" 
DISPLAY "POSSIBLE LOGIC ERROR". 
605-CONVERT-DATA. | _ 
RRR EEE EE EERE EEE RRR REE ER EREKE EERE EERE ERENIINEEE ER AAI 
* THIS ROUTINE WILL CONVERT THE RECEIVED DATA FROM EBCDIC TO * 
* ASCII AND DISPLAY THE RECORD ON THE TERMINAL. * 
KHER RAKE RRR RIK IKKE REE IEEE KRI KKK EH E EERE EER EEE EREREREAEE 
COMPUTE CONVERSION-LENGTH = RECEIVED-DATA-LENGTH + 4. 
CALL "CSEBAC" USING SNA-WORK-AREA 
RECEIVE-DATA-BUFFER 
TRANSLATE-F ROM- POSITION 
RECEIVE-DATA-BUFFER — 
TRANSLATE- TO- POSITION 
| CONVERSION-LENGTH. 
IF CALL-FORMAT-ERROR 
DISPLAY "COBOL ERROR IN CSEBAC CALL - CHECK RETURN CODES" 
DISPLAY "COBOL RETURN CODE IS: " MINOR-RETURN-CODE 
DISPLAY "PROGRAM WILL TERMINATE" 
MOVE 1 TO ERROR-IN-CALL- SW 
GO TO 600-EXIT 
ELSE 
NEXT SENTENCE. _ 
DISPLAY "RECIEVED DATA IS: ". 
DISPLAY RECEIVE-RECORD. 
600-EXIT. 
EXIT. 
*SKIP3 
700-GET~ INTERRUPT- INFO. 
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REEEKKEKEKEKEKEKEEKKEEKKEKEEKKEEREKEKEEEKKREKREEEKEREKKEKEKKEKEEKKEREKEKE 


THIS ROUTINE WILL ISSUE A CSRI CALL IN ORDER TO PICK UP THE 
LENGTH OF ANY INTERRUPT INFORMATION THAT IS BEING RETURNED 
TO THE PROGRAM, AFTER THIS CALL IS COMPLETED A CSWANY MUST 
BE ISSUED BECAUSE A CSRI IS AN ASYNCHRONOUS CALL. A CSRECV 
WOULD BE ISSUED AFTER THAT IF THERE IS AN INTERRUPT MESSAGE 
TO PICK UP. THE INTERRUPT TYPE RETURNED ON THE ORIGINAL 
SESSION CALL WILL INDICATE WHAT FURTHER PROCESSING THE 
PROGRAM SHOULD DO NEXT. WE JUST DISPLAY ANY INFORMATION 
RETURNED TO THE PROGRAM THEN CONTINUE NORMAL PROCESSING. 
SOME INTERRUPTS MAY REQUIRE OTHER PROCESSING LOGIC. 
KRKEEKKKEEKEKEREKEEKEEKEERERREEREREEEEEREERERREKEEEKREKEKEEKEEKKKEKEKE 
*****DISPLAY "GOING TO ISSUE CSRI CALL NOW" 

CALL "CSRI" USING SNA-WORK-AREA 

7 INTERRU PT-DATA-LENGTH. 

KKEEKEKEERKEEEEREEEKEEKKERKEREEKEKEEEKEKKEREREEREEKKEKEEEEKKEREKEEEEKE 
* CHECK THE RETURN CODE VALUES NEXT TO MAKE SURE THE CALL HAS * 
* COMPLETED WITHOUT ANY ERRORS. * 
KREEKKEKKEKKEKEKREKKEEKEREREKEEKEKKEKREREKEEEKKEEKEEEREEREREEKKEEKKKKEKES 

PERFORM 900-CHECK-RETURN THRU 900-EXIT. 

IF OK-TO-CONTINUE 

NEXT SENTENCE 

ELSE 

DISPLAY "ERRORS FROM CSRI - CHECK RETURN CODES" 

DISPLAY "PROGRAM WILL TERMINATE" 

GO TO 700-EXIT. 
KRKEKKKEEKEEKEKEEKEKEREEEEKEKRREEEEREREREEKREEEREEKKEEEKEREEKEREEEKEKKKEEK 
* ISSUE THE CSWANY CALL TO FORCE THE PROGRAM TO WAIT FOR THE * 
* RETURN FROM THE CSRI CALL. * 
KRKEKKKEERKEERKEKEEEKEEERERKEERRERREKKKEKEKEKEKEKRREEEKEEREEEKERKEEKE 


CALL "CSWANY" USING SNA-WORK-AREA. 
REKEKEREREKKEEKKEKEKEKKEKEKKKKEEKREREREKEREEEREEREEERRREREREERKEAKEEEE KEKE 
* CHECK THE RETURN CODE VALUES NEXT TO MAKE SURE THE CALL HAS * 
* COMPLETED WITHOUT ANY ERRORS. * 
KKEEKKAERRKRKKEKRERKEEKEBEEKEEEEREEEEKREEREEREEERERERREEREEEEEEEKEEKRER 

PERFORM 900-CHECK-RETURN THRU 900-EXIT. 

IF OK-TO-CONTINUE 

NEXT SENTENCE 
ELSE 
DISPLAY “ERRORS FROM CSWANY - CHECK RETURN CODES" 
DISPLAY "PROGRAM WILL TERMINATE" 
GO TO 700-EXIT. 
IF INTERRUPT-DATA-LENGTH IS EQUAL TO ZERO 
DISPLAY "NO INTERRUPT MESSAGE RECEIVED - CONTINUE" 
GO TO 700-EXIT 
ELSE | 
DISPLAY "NEED TO DO CSRECV FOR INTERRUPT MESSAGE". 
MOVE INTERRUPT-DATA-LENGTH TO RECEIVE-BUFFER-SIZE. 


+ et FF OF Oe OF OF 
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CALL "CSRECV" USING SNA-WORK-AREA 
RECEIVE-DATA-BUFFER 
RECEIVE-BUFFER-SIZE 
DATA-BUFF ER-ALIGNMENT 
SYNC-CALL _ 
WHOLE-MSG- INDICATOR 
RECE IVED-DATA- LENGTH 
OUTPUT-CONTROL-WORD. _ | 
HREEKKKEKKEEKEEEKREKEEEKEEREEEKEEEKEEEEKERREEKEEREREEKREKRKEKRRKERRKEKREREKKEKRE 
* CHECK THE RETURN COD VALUES NEXT TO MAKE SURE THE CALL HAS * 
* COMPLETED WITHOUT ANY ERRORS. * 
KEEEKKEKEEKKEEREKREKEEREEEEEKEEKEKEEEREREERKEEKKEREEREEEEEREEELEEEESR 
PERFORM 900-CHECK-RETURN THRU 900-EXIT. 
IF OK-TO-CONTINUE 
NEXT SENTENCE 
ELSE 
DISPLAY "ERRORS FROM CSRECV (I) - CHECK RETURN CODES" 
DISPLAY "PROGRAM WILL TERMINATE" 
GO TO 700-EXIT. 
REET EEKEKEEREKEKEEKEEKEREKKEEEEKEEEKREE 
* THIS ROUTINE WILL CONVERT THE RECEIVED DATA FROM EBCDIC TO * 
* ASCII AND DISPLAY THE RECORD ON THE TERMINAL. * 
REEKEEEKKEEKEREEEKKEKKEEEKEKEKEEREKEKEEEEEEKEREKEEEKEKKEEKEKEEKEEKKEEKES 
COMPUTE CONVERSION-LENGTH = RECEIVED-DATA-LENGTH. 
CALL "CSEBAC" USING SNA-WORK-AREA 
RECEIVE-DATA-BUFFER 
TRANSLATE-FROM- POSITION 
RECEIVE-DATA-BUFFER 
TRANSLATE TO- POSITION 
- CONVERSION-LENGTH. 
IF CALL~FORMAT-ERROR 


DISPLAY "COBOL ERROR IN CSEBAC CALL - CHECK RETURN CODES" | 


DISPLAY "COBOL RETURN CODE IS: " MINOR-RETURN-CODE 
DISPLAY "PROGRAM WILL TERMINATE" 
MOVE 1 TO ERROR-IN-CALL-SW 
GO TO 600-EXIT 
ELSE 
NEXT SENTENCE. 
DISPLAY "INTERRUPT INFORMATION IS: " 
RECEIVE~DATA~BUFFER. 
EXIT. 
*EJECT 
800-COMPARE~EACH-FIELD. 
IF CHECK-INPUT-FIELD (INDX1) IS EQUAL TO DATA-FIELD (INDX1) 
ADD 1 TO NUMBER-CHARS 
ELSE | 
ADD 1 TO NUMBER-CHARS 
DISPLAY "CHARACTER NOT THE SAME IS: " 
NUMBER-CHARS 
MOVE 1 TO COMPARE-REC- SW. 
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IF INDX1 IS EQUAL TO RECEIVED-DATA-LENGTH 
MOVE 1 TO NO-MORE-SW 
DISPLAY "END OF COMPARE" 
ELSE 
ADD 1 TO INDX2. 
800-EXIT. 
EXIT. 
*SKIP3 
900-CHECK-RETURN. 
KREKEKKEKKEEKEKEKEKEKKKEEEKKEEKEEKEKKKKEEKEKEKEEKEEKEEKEKEKEEEEKEKREEKERSE 
* THIS ROUTINE WILL CHECK THE RETURN CODES FROM THE VARIOUS * 
* AIF CALLS. A SWITCH IS SET TO INDICATE WHETHER THE CALL * 
* WAS OK OR NOT. WHEN THE RETURN CODES ARE NOT OK THEY * 
* WILL BE DISPLAYED ON THE TERMINAL. * 
REKEKKEEKEKEKEKEKREKEKEKEEKEEKEKREEEKEREKEKEEEEEEKEKEEKEEREEKEEKKEKEEKEKE 
MOVE 0 TO ERROR-IN-CALL-SW. 
IF CALL-FORMAT-ERROR 
MOVE 1 TO ERROR-IN-CALL-SW 
DISPLAY "COBOL FORMAT ERROR IN CALL - RETURN CODE IS: " 
MINOR- RETURN-CODE 
DISPLAY "NEXT MESSAGE INDICATES CALL IN ERROR" 
GO TO 900-EXIT 
ELSE 
NEXT SENTENCE. 
IF SOPR-ISSUED-STOP 
DISPLAY "SOPR OPERATOR HAS ISSUED A STOP COMMAND" 
DISPLAY "STOP TIME IS: “ SOPR-STOP-TIME 
ELSE 
NEXT SENTENCE. 
IF SESSION-ABORTED 
DISPLAY "LU SESSION HAS BEEN ABORTED - REINIT REQUIRED" 
MOVE 1 TO ERROR-IN-CALL- SW 
ELSE 
NEXT SENTENCE. 
IF INTERRUPT-RECEIVED 
DISPLAY "INTERRUPT FROM HOST OR AIF RECEIVED" 
DISPLAY "INTERRUPT TYPE IS: " INTERRUPT-TYPE 
" RECEIVED SENSE DATA IS: " RECEIVED-SENSE-DATA 
DISPLAY "DO A CSRI FOR ADDITIONAL INFORMATION" 
MOVE 1 TO INTERRUPT-SW 
ELSE 
MOVE 0 TO INTERRUPT-SW. 
IF CALL-WAS-COMPLETED AND 
MINOR-RETURN-CODE IS EQUAL TO ZEROS 
GO TO 900-EXIT 
ELSE 
NEXT SENTENCE. | 
DISPLAY "VERB CALL CONTAINS ERRORS - RETURN CODE IS: " 
, MINOR-RETURN-CODE " MAJOR RETURN CODE IS: " 
MAJ OR-RETURN-CODES. 
MOVE 1 TO ERROR-IN-CALL- SW. 
900-EXIT. 
EXIT. 
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*SKIP3 
999-END- PROGRAM. 
ee ee ee eS SSeS SS ee ee See ee Te TT TT TT TT TE TTT TTC TT CTT TTT 
* THIS ROUTINE WILL BE USED TO ISSUE A CSTERM CALL TO END THE * 
* CONVERSATION WITH THE HOST TRANSACTION AND THE LU SESSION. * 
* AN ABNORMAL TERMINATE IS DONE SINCE THE HOST TRANSACTION * 
* IS DESIGNED TO NOT END THE BRACKET. * 
REKEKEKEKEKEKKEKEREKEEKEREEEREKEEERKEKEEKREAEEREREREEREKKEEEREKKKERKSE 
*****DISPLAY "GOING TO TRY A NORMAL TERMINATE NOW". 
MOVE "A" TO TERMINATE-TYPE 
CALL "CSTERM" USING SNA-WORK-AREA 
- TERMINATE-TYPE. 
RAREKEKEEEKERKKEERERKEKEKEKREEEEEKEKERRKKEEKEKEEKERKEKEKRKRKKKKRRKKKKRERKKKEKEEE 
* CHECK THE RETURN CODE VALUES NEXT TO MAKE SURE THE CALL HAS * 
_* COMPLETED WITHOUT ANY ERRORS. * 
RREKKEEKKEEKEREERERKEKEEKEKEEEREEREEEKREKEEKEREKAKER KKK 
PERFORM 900-CHECK-RETURN THRU 900-EXIT. 
IF OK-TO-CONTINUE 
DISPLAY "SESSION TERMINATION COMPLETE" 
GO TO 999-EXIT | 
ELSE | | 
DISPLAY "ERRORS FROM CSTERM A - CHECK RETURN CODES" 
DISPLAY "PROGRAM WILL ISSUE ABNORMAL TERMINATE AGAIN". 
MOVE "A" TO TERMINATE-TYPE, 
CALL "CSTERM® USING SNA-WORK-AREA 
TERMINATE-TYPE. 
999-EXIT. | 
EXIT. 
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KEKEKKEKKEKEKEKEKKEREEKEEREKEKEKEKRKEEREKREEEKEEKEKEKEKEEEREKEKEEKEKEKKEKEKERKEKEEEKKKEEE 
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REKKEKEKKEKKEKEKKEKRERKEEREKEKKEEKEEKKEEEEREEKREKEREEKREKEEEREREKEKEKEEEEEKKEEEEEER 


* 
* 


PROGRAM-ID. L6SI1C. 


THIS IS A SAMPLE LU 6.2 PROGRAM WHICH WILL EXERCISE SOME 


OF THE AIF 6.2 VERBS. 


THE DATA BACK, 


CONVERT IT TO EBCDIC, 


THE PROGRAM WILL ALLOCATE A 
CONVERSATION WITH THE HOST TRANSACTION ADL6. 
READ DATA FROM THE TERMINAL, 
THE LOGICAL RECORD TO SEND TO THE HOST, 
TO THE HOST AND RECEIVE THE RECORD BACK. 


IT WILL 

BUILD 

SEND THE RECORD 
UPON RECEIVING 


THE PROGRAM WILL COMPARE THE DATA THAT 


WAS RECEIVED WITH THE DATA SENT AND SEND EITHER A CON- 
FIRMATION OR AN ERROR MESSAGE TO THE HOST DEPENDING ON 


WHETHER THE TWO COMPARED THE SAME. 


IT WILL CONVERT THE 


RECEIVED DATA TO ASCII AND DISPLAY IT ON THE TERMINAL. 


IF THE TERMINAL INPUT DATA STARTS WITH: END; 


THE PROGRAM 


WILL DEALLOCATE THE CONVERSTATION AND END OTHERWISE IT 


WILL DO THE 
FROM THE TERMINAL. 


ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. LEVEL~-6. 
OBJECT-COMPUTER. LEVEL-6. 


DATA DIVISION. 
WORKING-STORAGE SECTION. 
Gl START-OF-WS PIC X(32) 

VALUE 


77 SNA-WORK-AREA 

77 AIF-NODE-NAME 

77 REMOTE-LU-NAME 

77 STD-NAME 

77 SYNC-LEVEL 

77 HOST-TRANSACTION= NAME 

77 TRANSLATE~-TRAN-NAME 

77 RETURN-CONTROL 

77 CONVERSATION-ID 

77 POSTED-CONVERSATION-ID 

01 LOGICAL-DATA-BUFFER. 
05 LOGICAL~REC-LENGTH 
05 LOGICAL~RECORD 

77 DATA-~BUFFER~LENGTH 

77 DATA-BUFFER~ALIGNMENT 

O01 RECEIVE-DATA-BUFFER. 
05 RECEIVE-REC-LENGTH 
05 RECEIVE-RECORD 

77 TYPE-OF-RECEIVE 

77 RECEIVE-BUFFER-SIZE 

77 RECEIVED-DATA-LENGTH 

77 SEND-SENSE-DATA 


Figure C-3. 


SAME PROCESS WITH WHAT HAS BEEN RECEIVED 


“START OF WORKING STORAGE SECTION®. 
O01 AIF-PARAMETERS PIC X(21) VALUE "AIF PARAM 


PIC ) 
PIC X(8) 

PIC X(8) 

PIC X3 

PIC 
PIC 
PIC 
PIC 
PIC 
PIC 


"SMPLAIF*. 
"AO6CICS2". 


COMP-1. 

PIC X(80) VALUE SPACES. 
PIC 9(5) VALUE 82. 

PIC X VALUE "L". 


COMP=-1. 

PIC X(80) VALUE SPACES. 
PIC X VALUE “B*., 

PIC 9(5) VALUE 82. 

PIC 9(5) VALUE 0. 

PIC X(8) VALUE ZEROS. 
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O01 RETURN-CODE-VALUES. 


O01 


77 
01 


77 
77 


77 
77 
77 
77 
77 
01 
01 


O01 


05 


05 


MAJ OR- RETURN-CODES. 
10. ABEND-DEALLOCATE 
88 ABEND-RECEIVED 
16 STOP-RECEIVED 
88 SOPR-ISSUED-STOP 
10 SERV~REQ-CANCELLED 
88 CALL-WAS-CANCELLED 


10 SERV-~REQ-COMPLETE 


88 CALL-~WAS-COMPLETED 
10 COBOL~ERROR 

88 CALL-~FORMAT-ERROR 
MINOR-RETURN-CODE 


SOPR~STOP-TIME,. 


05 


05 


DATE-OF-STOP. 

10 STOP-YEAR 

10 STOP-MONTH 
10 STOP-DAY 
TIME-OF-STOP. 

10 STOP-HOUR 

10 STOP-MINUTE 
10 STOP-SECONDS 


RECEIVED-SENSE~DATA 
OUTPUT-CONTROL-WORD. 


05 


05. 
05 


REQUEST-SEND-RECVD 

88 REQUEST-TO-SEND 
CONVERSATION-POSTED | 

88 COT ED  CONVERORIION 
WHAT-RECEIVED 

88 DATA-~RECEIVED 

88 LL-DATA-RECEIVED-COMP 
88 LL-DATA~RECEIVED-INCOMP 
88 LL-FIELD-TRUNCATED | 
88 CONFIRM-REQUEST 

88 CONF IRM-ON-HOST-PTOR 
88 SEND-~REQUEST-RECVD 

88 DEALLOCATE-CONFIRM 

88 DATA~INC-LENG-0 

88 DATA-AVAIL-~LENG-0 


LOG~ SWITCH 
LOG-DATA 


"ERROR IN PROGRAM", 


TY PE-SWITCH 
CONVERSION~LENGTH 
CONFIRMATION-LOCKS 
TRANSLATE-F ROM- POSITION 
TRANSLATE- TO- POSITION 
END-OF-AIF PIC X(21) VALUE "END OF AIF PARAMETERS", 
MISC-PROGRAM-VARIABLES PIC X(26) VALUE 


DATA-TO-HOST 


"OTHER WORKING STORAGE DATA". 
PIC X(80) VALUE HIGH-VALUES. 


- VALUE 


PIC 


PIC X. 
VALUE 
PIC X. 


PIC X. 
VALUE 
PIC X. 
VALUE 
PIC X. 
VALUE 


PIC 
PIC 
PIC 


99. 
99. 
99. 


PIC 99. 
PIC 99. 
9(4). 
PIC 


PIC X. 
VALUE 
PIC X. 
VALUE 
PIC 99, 

VALUE 20. 
VALUE 21. 
VALUE 22. 
VALUE 08. 


VALUE 06. 


VALUE 04. 
VALUE 05. 
VALUE Q9. 
VALUE 10. 
PIC X 


PIC X(80) VALUE 


PIC xX 
COMP-1. 
PIC X 
COMP-1 
COMP=1 


ub Sane 
ve dae 
ae Se 
a Cae 


my % 
PIC 9(4) VALUE 


ee ars 


ey 


VALUE 


VALUE 


VALUE 


ZEROS. 


wNY 


"Ss". 


at ae 


VALUE 1. 
VALUE l. 


Figure C-3 (cont). 


X(8) VALUE ZEROS. 
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01 DATA-TO-HOST-REDEF REDEFINES DATA-TO-HOST. 
05 CHECK-INPUT-FIELD OCCURS 80 TIMES. 
10 DATA-FIELD-CHAR PIC X. 
01 DATA-FROM-HOST. 
05 DATA-FIELD OCCURS 80 TIMES. 


10 DATA-FLD~-CHAR PIC X. 
Ol DATA-FROM-TERMINAL. 
05 END-INDICATOR PIC XXX, 
88 END-PROGRAM VALUE "END". 
05 FILLER PIC X(77) VALUE SPACES. 
O01 SWITCH-COUNT-VARIABLES. 
05 INDX1 COMP=1 VALUE 1. 
05 NUMBER-CHARS PIC 9(4) VALUE ZEROS. 
05 CALC-LENGTH COMP-1 VALUE ZEROS. 
05 TEMP-LENGTH PIC 9(5) VALUE ZEROS. 
05 ERROR-IN-CALL- SW PIC 9 VALUE 0. 
88 OK-TO-CONTINUE - VALUE OQ. 
05 RECORD-BUILT-SW PIC 9 VALUE 0 
88 RECORD-BUILT VALUE l. 
05 NO-INPUT-SW PIC 9 VALUE 0. 
88 NO-INPUT-DATA VALUE l. 
05 COMPARE-REC-SW PIC 9 VALUE 0 
88 COMPARE-OK VALUE 0. 
05 NO-MORE= SW PICS VALUE 0 
88 NO-MORE-TO-CHECK VALUE 1. 
01 ENTER-MESSAGE PIC X(80) VALUE 


"PLEASE ENTER DATA TO TRANSMIT TO HOST OR END TO QUIT". 

O01 END-OF-WORK-STOR PIC a, VALUE "END NORTENG STORAGE", 
PROCEDURE DIVISION. 
000-BEGIN. 

DISPLAY "START OF LU 6.2 SAMPLE COBOL PROGRAM". 
REEKKEKEKEKKEEEKEKEAKEEREKEEKKKKEEEEEEEREREKEREEEREEREREERREKEKERERRERE 
. START BY TRYING TO ALLOCATE A CONVERSATION WITH HOST CICS * 
* TRANSACTION ADL6. i 
KHKREREKKKEKKEKREEEREKEKEKEKREEERETEREREEEREEREEEREEEREREREEERERKES 

PERFORM 100-ALLOCATE-CONVERSATION THRU 100-EXIT. 

IF OK-TO-CONTINUE 

NEXT SENTENCE 

ELSE | 
GO TO 099-TERMINATE, 
RREREEEKEREREKEKEREEREKERKEEREEREREKREKREERERERERERKEEEERRERRREREEREE 
* IF THE CONVERSATION IS ALLOCATED THEN WE CAN PROCEED WITH * 
* THE REMAINDER OF THE PROGRAM PROCESS. * 
KRKEKKKEKKRKEKKEEEEKKKEREREEEEKEKEREEEEREEREREEREREKEREKEEREEEKEEKREKKE 

005-CONTINUE. 

PERFORM 200-GET-RECORD THRU 200-EXIT. 

IF END- PROGRAM 

DISPLAY "END OF RUN REQUESTED - PROGRAM WILL END" 
PERFORM 999-END-PROGRAM THRU 999-EXIT 
GO TO 099-TERMINATE 
ELSE 
NEXT SENTENCE, | 
MOVE HIGH-VALUES TO DATA-TO-HOST. 
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MOVE SPACES TO DATA-FROM-HOST 
RECEIVE-RECORD. 
MOVE DATA-FROM-TERMINAL TO DATA~TO-HOST. 
MOVE 0 TO INDX1 
NO- INPUT SW 
RECORD~-BUILT- SW 
LOGICAL-~ REC~LENGTH 
DATA~BUFFER-LENGTH. 


PERFORM 300-BUILD-LOGICAL THRU 300-EXIT VARYING INDX1 FROM 1 


BY 1 UNTIL RECORD-BUILT. 
IF NO-INPUT-DATA 


DISPLAY "NO DATA WAS ENTERED FROM THE TERMINAL" 


DISPLAY "PLEASE KEY SOME DATA BEFORE HITTING ENTER KEY" 


GO TO 005-CONTINUE 
ELSE : 
NEXT SENTENCE. , 
MOVE DATA=TO-HOST TO LOGICAL-RECORD. 
PERFORM 400-SEND-RECORD THRU 400-EXIT. 
IF OK-TO-CONTINUE 
NEXT SENTENCE 
ELSE 
PERFORM 999-END=PROGRAM THRU 999-EXIT 
GO TO 099-TERMINATE. 
010-DO-RECEIVE. 
PERFORM 500-RECEIVE-INFO THRU 500-EXIT. 
~0101-NEXT-RECEIVE. 
IF OK~TO-CONTINUE 
NEXT SENTENCE 
ELSE 
PERFORM 999-END-PROGRAM THRU 999-EXIT 
GO TO 099-TERMINATE. 
015-CHECK-WHAT-~ RECEIVED. 
IF DATA~RECEIVED 
PERFORM 600-COMPARE-INOUT THRU 600-EXIT 
PERFORM 505-ISSUE-CSRAW THRU 500-EXIT 
GO TO 0101-NEXT-RECEIVE 
ELSE | 
IF DEALLOCATE-CONFIRM 
PERFORM 700-ISSUE-CONFIRMED THRU 700-EXIT 
GO TO 099-TERMINATE 
ELSE 
IF CONF IRM-ON-HOST-PTOR 
GO TO 020-CHECK-COMPARE 
ELSE 
NEXT SENTENCE, 
DISPLAY "UNEXPECTED WHAT RECEIVED FIELD". 
DISPLAY "WHAT RECEIVED IS: " WHAT-RECEIVED. 
PERFORM 705-SEND-ERROR THRU 705-EXIT. 
IF OK-TO-CONTINUE 
NEXT SENTENCE 
ELSE 
PERFORM 999-END~-PROGRAM THRU 999-EXIT 
GO TO 099-TERMINATE. 
GO TO 0101-NEXT-RECEIVE. 
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020-CHECK-COMPARE. 
IF COMPARE-OK 
PERFORM 700-ISSUE-CONFIRMED THRU 700-EXIT 
ELSE 
PERFORM 705-SEND-ERROR THRU 705-EXIT. 
IF OK-TO-CONTINUE 
NEAT SENTENCE 
ELSE 
PERFORM 999-END-PROGRAM THRU 999-EXIT 
GO TO 099-TERMINATE. 
GO TO 005-CONTINUE. 
099-TERMINATE. 


STOP RUN. 
* 


* 
x 
100-ALLOCATE-CONVERSATION. 
KREEREEKKEEREKEEEKEEEEKEREKREKEEREKEEEEEEREEEEKEEKERREEKKEREEEKEKEKKEKE 
THIS ROUTINE WILL ISSUE A CSALLO TO ATTEMPT TO ALLOCATE A * 
* LU 6.2 CONVERSATION WITH THE HOST CICS TRANSACTION ADL6. * 
* A CSFLSH IS ISSUED TO FORCE AIF TO SEND THE ATTACH REQUEST * 
* TO CICS IMMEDIATELY, INSTEAD OF WAITING FOR THE SEND BUFFER * 
* TO FILL UP OR ANOTHER VERB BEING ISSUED WITH A FLUSH OPTION. * 
* WE WANT TO FIND OUT IF A CONVERSATION CAN BE STARTED BEFORE * 
PROCEEDING FURTHER. * 
REKEKKEEKEEKEKEEKEEKEEEKEREKEKEREEREREEKERREREKEEKEEEEEEREKEEKREEKEKEEEEEE 
*****DISPLAY "GOING TO DO CSALLO NOW", 
CALL "CSALLO" USING SNA-WORK-AREA 
AIF-NODE-NAME 
REMOTE-LU- NAME 
CONVERSATION-ID 
HOST-TRANSACT ION- NAME 
TRANSLATE- TRAN-NAME 
STD-NAME 
RETURN-CONTROL 
SYNC-LEVEL 
RETURN~-CODE-VALUES 
SOPR- STOP-TIME 
RECEIVED-SENSE-DATA 
OUTPUT-CONTROL-WORD. 
RRKEKKRREEEREREREREERERERRRERRERERRERRERRERERRRERREEEEEREAERERRAEKEE 
* CHECK THE RETURN CODE VALUES NEXT TO MAKE SURE THE CALL HAS * 
* COMPLETED WITHOUT ANY ERRORS. * 
KEEKKEKRKEREKEEREEEEKEKEKEREEKERKEEEEEREERERERRERREREEREREEREREEEEERE 
PERFORM 900-CHECK-RETURN THRU 900-EXIT. 
IF OK-TO-CONTINUE 
NEXT SENTENCE 
ELSE 
DISPLAY "ERRORS FROM CSALLO REQUEST - CHECK RETURN CODES" 
DISPLAY "PROGRAM WILL END - NO CONVERSATION" 
GO TO 100-EXIT. 


+ 
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KRKKRKEKEKEEKKEKEEREKKEKEKEKEKEEEEEEEEEEEKEREEKEREREKEREKEREKEERKKEEKEERKESE 


* NOW ISSUE THE CSFLSH TO FORCE AIF TO SEND THE ATTACH REQUEST* 
* TO THE HOST CICS SYSTEM. 

ee ye pea ape i ecuceat ea aaseunweeeena | 
*****DISPLAY "GOING TO DO CSFLSH NOW". 

CALL "CSFLSH" USING SNA~WORK-AREA. 
KEEKEKKEKKKEKEEEKEKEEEEEREEREEEKEEEKEEEEEEKREKREKEERKRKKEKKKEKEKRKEKKEKESE 
- CHECK THE RETURN CODE VALUES NEXT TO MAKE SURE THE CALL HAS * 
- COMPLETED WITHOUT ANY ERRORS. * 
KKEKKEEKEKKKKEKEKEKEKEREREEERREKRKEKKEEEEEEKEEEEREREREKKKREKKRRERKKKRK:E 

PERFORM 900-CHECK~-RETURN THRU 900-EXIT. 

IF OK~TO~-CONTINUE 

NEXT SENTENCE 

ELSE | | | 
DISPLAY "ERRORS FROM CSFLSH - CHECK RETURN CODES" 
DISPLAY "PROGRAM WILL END = NO CONVERSATION" 

GO TO 100-EXIT. 
DISPLAY "CONVERSATION HAS BEEN ALLOCATED =~ ID Is: i 
| CONVERSATION-ID. 
LOO-EXIT. 
EXIT. 
* EJECT 
200-GET- RECORD. 

MOVE HIGH-VALUES TO DATA~FROM~TERMINAL. 
KREKEKEKKKEKEKEEREKREKEEEKEEKKEEEEREKEEEREREEKKEREREKEERKEERREKKEEEKEKKEEKKERE 
* NOW GET SOME DATA FROM THE TERMINAL OPERATOR TO SEND TO THE * 
* HOST REMOTE PROGRAM. * 
KKK KKK KEKE KEKE KERRIER ERE KEE REE EERE REE ERR EREREEEEEEEREKEKEKES 

DISPLAY ENTER-MESSAGE, 

Pires DATA~FROM- TERMINAL. 

“EXIT. 

*SKIP3 
300-BUILD- LOGICAL. 
REKEEKEKEKEKEEKEKEEEREEKEKRKKEEREEEKEEREEKRERKEKKEREEKKKEKREKRKEKRERKKKKEEKREE 
id NOW BUILD THE LOGICAL RECORD THAT WILL BE SENT TO THE HOST * 
* BY CALCULATING THE LENGTH OF THE DATA RECEIVED THEN CONVERT * 
* THE DATA TO EBCDIC. * 
RRR RRR RRR RRR RRR RRR IK RRR IIRRIRER RRR ERR RARER REAR ERR ARERR 
IF CHECK-INPUT-FIELD (INDX1) Is EQUAL TO HIGH-VALUES 
MOVE 1 TO RECORD-BUILT-SW 
COMPUTE CALC-LENGTH = INDX1 - l 
IF CALC-LENGTH IS EQUAL TO ZEROS OR 
CALC-LENGTH IS LESS THAN ZEROS 
MOVE 1 TO NO-INPUT-SW 
GO TO 300-EXIT 
ELSE — 
ADD 2 TO DATA-BUFFER-~LENGTH 
- LOGICAL-~REC-LENGTH 
MOVE CALC-LENGTH TO CONVERSION-LENGTH 
MOVE LOGICAL-REC-LENGTH TO TEMP-LENGTH 
PERFORM 305-CONVERT-RECORD THRU 305-EXIT 
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ELSE 
ADD 1 TO DATA-BUFFER-LENGTH 
LOGI CAL-REC-LENGTH. 
300-EXIT. 
EXIT. 
*SKIP3 
305-CONVERT-RECORD. 
REKRKKKEREKEREEKERKEREEEREKEKEEEREREKEKEEKEEKREEKEEEEEKEKEEEKEEEEKEKKEEKSK 
* THIS ROUTINE WILL ISSUE THE CSACEB CALL TO CONVERT THE DATA * 
* FROM THE TERMINAL TO EBCDIC BEFORE IT IS SENT TO THE HOST. * 
KKEKEKKEEKEKKEEKEEEEKEEEEKEKREREEEREREEEREEKKKEREREKEKEKEEKEEKEEKERKE 
CALL "CSACEB" USING SNA-WORK-AREA 
DATA-TO-HOST 
TRANSLATE-F ROM— POSITION 
DATA-TO-HOST 
TRANSLATE- TO- POSITION 
CONVERS ION-LENGTH. 
IF CALL-FORMAT-ERROR 
DISPLAY "COBOL ERROR IN CSACEB CALL - CHECK RETURN CODES" 
DISPLAY "COBOL RETURN CODE IS: " MINOR-RETURN-CODE 
DISPLAY "PROGRAM WILL TERMINATE" 
MOVE 1 TO ERROR-IN-CALL-SW 
ELSE 
| NEXT SENTENCE. 
305-EXIT. | 
EXIT. 
*EJECT 
400-SEND-RECORD. 
KKEEKRKEEEREEREREEREREEEREEEEKEEREEKEEEEEEREEREREREREREEEKEREKREEEKEKRE 
* THIS ROUTINE WILL ISSUE THE CSSDAT CALL TO SEND THE DATA * 
* 0 AIF, AIF WILL NOT SEND THE DATA TO THE HOST UNTIL WE * 
* ISSUE ANOTHER CALL TO FORCE A FLUSH OF THE BUFFERS. THIS * 
* WILL BE DONE IN THE NEXT ROUTINE. * 
CKREEKARKKEEEREREEREREREKEEEEREREERREEEEEEAEREEEREREEKEKEERRREKEREKKEKEER 
#****DISPLAY "GOING TO DO CSSDAT NOW". 
CALL "CSSDAT" USING SNA-WORK-AREA 
LOGICAL-DATA-BUFFER 
DATA-BUFFER-LENGTH. 
REAEEARKEKREEEKKEEKRRERREREKEERERERKEEEEEREEERERRERERRERERARKERERRERER 
* CHECK THE RETURN CODE VALUES NEXT TO MAKE SURE THE CALL HAS * 
* COMPLETED WITHOUT ANY ERRORS. ‘ 
KEKEKKEKKEREKEEKEKEEKERRRERERKEREREREEKEREEEEEREEKEEREEEKEEEEEEEKEERE 
PERFORM 900-CHECK-RETURN THRU 900-EXIT. 
IF OK-TO-CONTINUE 
NEXT SENTENCE 
ELSE 
DISPLAY "ERRORS FROM CSSDAT REQUEST - CHECK RETURN CODES" 
DISPLAY "PROGRAM WILL TERMINATE", 
400-EXIT. 
EXIT. 
*EJECT 
500-RECEIVE-INFO. 
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re RERSSSCE SEES E SESE SESS ESSE RSE RARE SLEAE EER SESE ESAS ERE SSL ERE RESALES SE 


THIS ROUTINE WILL ISSUE A NUMBER OF AIF VERBS. FIRST IT 
WILL DO A CSPTOR WHICH WILL CAUSE AIF TO FLUSH THE SEND 
BUFFER SENDING THE DATA FROM THE CSSDAT CALL AND A SEND 
INDICATOR TO THE HOST PROGRAM TO TELL THAT PROGRAM IT CAN 
TURN AROUND AND SEND TO THIS PROGRAM. 

AFTER THE CSPTOR, THE PROGRAM WILL ISSUE A CSRAW TO WAIT 


FOR THE DATA TO COME BACK FROM THE HOST AND RECEIVE IT. 
HHKKEK KERR REE REE KK EERE RE RERRE EER EERE REEKREEEREREEEKERE 


RKEKKEREKKEEEKEREREEREEKKREKREREREEREEEEEEEKKEREREREREREEKRKEEKKEEREEKRER 


* THE TYPE OF PREPARE TO RECEIVE IS A FLUSH (TYPE-SWITCH=F) * 
* THE TYPE OF LOCKS IS LONG (CONFIRMATION-LOCKS=L) * 
(eee eee EERE LER ERE SESE ER RARER ERA RE SSL ARE RAS ESSE EERE EEE SARA SAREE ES SE 
*****DISPLAY "GOING TO DO CSPTOR TYPE F NOW". 
MOVE "F" TO TYPE-SWITCH. 
CALL "CSPTOR" USING SNA-WORK~AREA 
TY PE- SWITCH 
CONF IRMATION-LOCKS. 
REEKEKKEKEKEKREEEREEREKEAERERREEEKRRREEEKEEEKREKEREREKRREKKKRKRERKEKEKE 
* CHECK THE RETURN CODE VALUES NEXT TO MAKE SURE THE CALL HAS * 
* COMPLETED WITHOUT ANY ERRORS. 
RAEKEKEKKKEKKEKEKEKEKREREKEREREKEEKEKEKREREAEEEEEEEREREKKEKEKEKREKRKRKREKRKESE 
PERFORM 900-CHECK-RETURN THRU 900-EXIT. 
IF OK-TO-CONTINUE 
NEXT SENTENCE 
ELSE 
DISPLAY "ERRORS FROM CSPTOR - CHECK RETURN CODES" 
DISPLAY "PROGRAM WILL TERMINATE" 
GO TO 500-EXIT. 
505-ISSUE-CSRAW. 
ROR II IR RII II III IIR IIIA I AAAI IRI IIIA AAA III IIA AAA IIASA IIIA A I 
ISSUE THE CSRAW TO CAUSE THE PROGRAM TO WAIT FOR A RECEIVE * 
AND RECEIVE THE DATA COMING BACK FROM THE HOST TRANSACTION, * 
THE TYPE OF RECEIVE IS A BUFFER (TYPE-OF-RECEIVE=B) SO * 
AIF WILL PASS AN ENTIRE BUFFER'S WORTH OF DATA AS OPPOSED * 
* 
* 
* 


+ + + F He HH 
+ + + & HF F 


+ 


+ + + & 


TO A LOGICAL RECORD. THIS ROUTINE WILL ALSO BE USED TO 
* RECEIVE STATUS OR STATE CHANGE INFORMATION. | 
REKEKKEEKEKKEKEEEEEEKEREKRREKEREEEREKREEREKERREREREKKRKKKKERKKERKEKREKSE 
*****DISPLAY "GOING TO DO CSRAW NOW". 
CALL "CSRAW" USING SNA-WORK-AREA 
RECEIVE-DATA- BUFFER 
RECEIVE-BUFFER-SIZE 
TY PE-OF~RECEIVE 
RECEIVED-DATA-LENGTH. 
RREAEARAKRRKERKKEEEREREEEKEEEKKEERERERERERERKKREREEEKEREERKEKKKKERERRERRKESE 
* CHECK THE RETURN CODE VALUES NEXT TO MAKE SURE THE CALL HAS * 
* COMPLETED WITHOUT ANY ERRORS. * 
‘ERE EEE ESE RE RRR SELES EAE PERE REE RAL ERE LS R ESSE SEER EEE AERA RELEASE SE SS 
PERFORM 900-CHECK-RETURN THRU 900-EXIT. 
IF OK-TO-CONTINUE 
NEXT SENTENCE 
ELSE 
DISPLAY "ERRORS FROM CSRAW - CHECK RETURN CODES" 
DISPLAY "PROGRAM WILL TERMINATE". 
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EXIT. 
*EJECT 
600-COMPARE-INOUT. 
REEKKKKEKEKKEREREREKREREKEKEKEKEREEEREKEKREKEKEEEKEREEEREREKKKEKEKEK 
* THIS ROUTINE WILL COMPARE THE DATA RECEIVED FROM THE HOST * 
* WITH THE DATA ORIGINALLY SENT. IF THEY ARE NOT THE SAME sf 
* A SWITCH IS SET AND ERROR MESSAGES ARE DISPLAYED. * 
KREKKEKKEKEEKEEEEKEKKEKKEKEKEEREKEEKEEEKEKREEEKEKEKREEEKEKKEKEEKREKEKE 
DISPLAY "GOING TO COMPARE RECORD SENT TO RECEIVED NOW". 
MOVE RECEIVE-RECORD TO DATA-FROM-HOST. 
IF DATA-BUFFER-LENGTH IS EQUAL TO RECEIVED-DATA-LENGTH 
NEXT SENTENCE 
ELSE | 
DISPLAY “BUFFER LENGTHS ARE NOT THE SAME" 
DISPLAY "SEND LENGTH: " DATA-BUFFER-LENGTH 
" RECEIVE LENGTH: " RECEIVED-DATA-LENGTH. 
IF LOGICAL~REC-LENGTH IS EQUAL TO RECEIVE-REC-LENGTH 
NEXT SENTENCE 
ELSE 
DISPLAY "LOGICAL LENGTHS ARE NOT THE SAME", 
MOVE 0 TO COMPARE-REC- SW 
NUMBER-CHARS 
NO- MORE SW 
INDX1. | 
COMPUTE RECEIVE-REC-LENGTH = RECEIVE-REC-LENGTH —- 2. 
PERFORM 800-COMPARE-EACH-FIELD THRU 800-EXIT 
VARYING INDX1 FROM 1 BY 1 
UNTIL NO-MORE-TO-CHECK. 
IF COMPARE-OK 
DISPLAY “DATA FROM HOST IS THE SAME AS DATA SENT® 
ELSE 
DISPLAY "DATA FROM HOST IS NOT THE SAME AS DATA SENT" 
DISPLAY "POSSIBLE LOGIC ERROR". 
605-CONVERT-DATA. 
RAEKEEEKAEEKEKERREKEREKKREREREREREREAEREREREREEEKERREREKREREEEEKEEEEEEREER 
* THIS ROUTINE WILL CONVERT THE RECEIVED DATA FROM EBCDIC TO ¥%* 
* ASCII AND DISPLAY THE RECORD ON THE TERMINAL. bs 
KRERREARRKEEKKHREKKKRERKKEERERRERARKERERREKEKEREEKEREREERERERREKRAREEEEREEEE 
COMPUTE CONVERSION-LENGTH = RECEIVE-REC-LENGTH. 
CALL "CSEBAC" USING SNA-WORK-AREA 
. DATA-FROM-HOST 
TRANSLATE-FROM- POSITION 
DATA-FROM-HOST 
TRANSLATE~TO- POSITION 
CONVERSION-LENGTH. 
IF CALL-FORMAT-ERROR | 
DISPLAY "COBOL ERROR IN CSEBAC CALL - CHECK RETURN CODES" 
DISPLAY "COBOL RETURN CODE IS: " MINOR-RETURN-CODE 
DISPLAY "PROGRAM WILL TERMINATE" 
MOVE 1 TO ERROR~IN-CALL- SW 
GO TO 600-EXIT 
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ELSE , 
NEXT SENTENCE. 
DISPLAY "RECIEVED DATA IS: ". 

DISPLAY DATA-FROM-HOST. | 

600~EXIT. 

EXIT. 

*EJECT 
700-ISSUE-CONFIRMED. 

RHEKKEKKEREKEEEEEKREKEEKEKREREREKEKREREREEEKEEREERRKEKKKREKEKREKKKRKKKKRER 
* THIS ROUTINE WILL ISSUE A CSCNFD CALL. THIS WILL CAUSE AIF * 
* TO SEND A CONFIRMATION TO THE HOST TRANSACTION, * 
KKK KKK REE ERE REE RK KEKE RRR RR EERE REE ERE RERERRERERREEEEEERK KE 
*****DISPLAY "GOING TO DO CSCNFD NOW". 

CALL "CSCNFD" USING SNA-WORK-AREA. 
KREEKKKEKEEKREKEKREKEEKKKEKEEKKEREKEREKKEEKEEREKEEREKEREREKKREREEKKRKKKERKEKESE 
* CHECK THE RETURN CODE VALUES NEXT TO MAKE SURE THE CALL HAS * 
* COMPLETED WITHOUT ANY ERRORS. * 
KKK KEKE KERIKERI ERE EEE EERE ER ERE EREEREREREEREREEEEREERERERREEKRK 

PERFORM 900-CHECK-RETURN THRU 900-EXIT. 

IF OK-TO-CONTINUE 

NEXT SENTENCE 
ELSE 
DISPLAY "ERRORS FROM CSCNFD - CHECK RETURN CODES" 
DISPLAY "PROGRAM WILL TERMINATE", 
700-EXIT. | 
EXIT. 
*SKIP3 


705-SEND-ERROR. | | 
KIKI RIKER IIR IKE IRE EKER EIR REE RK ERE RERREEEEEKEAKEE 


+ ae THIS ROUTINE WILL ISSUE A CSSERR CALL TO NOTIFY THE HOST - 


= TRANSACTION OF AN ERROR IN PROCESSING. THE TYPE OF ERROR = 
= IS PROG (TYPE~SWITCH=P). THE PROGRAM WILL NOT REQUEST THE * 
* LOGGING OF DATA (LOG-SWITCH=N). * 
KREKREKKEEKKEEKEEKEEEKEEREEREREREEEKREEKRERKEERERERKKEEREKREREREEEERKEEREKEKRE 
*#**X*EDTSPLAY "GOING TO DO CSSERR TYPE P NOW". 
MOVE "P" TO TYPE-SWITCH. 
CALL "CSSERR" USING SNA-WORK-AREA 
| TY PE-SWITCH 
LOG- SWITCH 
REEREKREKEKEKERERERKERKEREKREEEREKEKEEEKKEERREKKEEKKKEKEKRKKRKERKKKKEEEEKE 
* CHECK THE RETURN CODE VALUES NEXT TO MAKE SURE THE CALL HAS * 
* COMPLETED WITHOUT ANY ERRORS. . 
KREKKKEKKEKRKEEKRKEREEREEKEEKKEKEEEEKKKEKEERERKEREKKEREKEKRKKREKKKRKRKKEKKRK 
PERFORM 900~-CHECK-RETURN THRU SO00-EXIT. 
IF OK-TO-CONTINUE 
NEXT SENTENCE 
ELSE 
DISPLAY "ERRORS FROM CSSERR - CHECK RETURN CODES" 
DISPLAY "PROGRAM WILL TERMINATE". 
705-EXIT. 
EXIT. 


Figure C-3 (cont). Sample COBOL Program for LU Type 6.2 
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*EJECT 
800-COMPARE-EACH-FIELD. 
IF CHECK-INPUT-FIELD (INDX1) IS EQUAL TO DATA-FIELD (INDX1) 
ADD 1 TO NUMBER-CHARS 
ELSE 
ADD 1 TO NUMBER-CHARS 
DISPLAY "CHARACTER NOT THE SAME IS: " 
NUMBER-CHARS 
MOVE 1 TO COMPARE-REC-SW. 
IF INDX] IS EQUAL TO RECEIVE-REC-LENGTH 
MOVE 1 TO NO-MORE-SW 
DISPLAY "END OF COMPARE" 
ELSE 
NEXT SENTENCE. 
800-EXIT. 
EXIT, 
*SKIP3 
900-CHECK-RETURN. 
KKEKEEREKKEEEEREKREKEREEKEEREEEKREEEREEEREEEEEEEEREEKEKEREREREKEREKRKEE 
* HIS ROUTINE WILL CHECK THE RETURN CODES FROM THE VARIOUS * 
* AIF VERB CALLS. A SWITCH IS SET TO INDICATE WHETHER THE * 
* CALL WAS OK OR NOT. WHEN THE RETURN CODES ARE NOT OK THEY * 
* WIL BE DISPLAYED ON THE TERMINAL. * 
KREKKKEKEKEEKREREREKKEKEEEREREEEEREEEEREEERREREEEEREREREKREEREEKEREKEKEK 
MOVE 0 TO ERROR-IN-CALL- SW. 
IF CALL-FORMAT-ERROR 
MOVE 1 TO ERROR-IN-CALL-SW 
DISPLAY "COBOL FORMAT ERROR IN CALL - RETURN CODE IS: " 
MINOR- RETURN-CODE 
DISPLAY "NEXT MESSAGE INDICATES CALL IN ERROR" 
GO TO 900-EXIT 
ELSE 
NEXT SENTENCE. 
IF. SOPR- ISSUED-STOP 
DISPLAY "SOPR OPERATOR HAS ISSUED A STOP COMMAND" 
DISPLAY "STOP TIME IS: * SOPR-STOP-TIME 
ELSE | 
NEXT SENTENCE. 
IF ABEND-RECEIVED 
| DISPLAY "AN ABEND/DEALLOCATE HAS BEEN RECEIVED" 
DISPLAY "SESSION WILL BE TERMINATED" 
MOVE 1 TO ERROR-IN-CALL-SW 
ELSE 
NEXT SENTENCE. 
IF CALL-WAS-COMPLETED AND 
MINOR-RETURN-CODE IS EQUAL TO ZEROS 
GO TO 900-EXIT 
ELSE 
NEXT SENTENCE. 
DISPLAY "VERB CALL CONTAINS ERRORS - RETURN CODE IS: " 
MINOR-RETURN-CODE. 
MOVE 1 TO ERROR-IN-CALL-SwW. 
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EXIT. 
—*SKIP3 
999-END-PROGRAM. | | | 
RREKKREKKEKEEEEEKEKEEEREKEKEEEKKEEKERREKEREKEKKEKKERREKEERRRKRKRKEKRRKRKKRKEKE 
THIS ROUTINE WILL BE USED TO ISSUE A CSDEAL CALL ENDING THE * 
CONVERSATION WITH THE HOST TRANSACTION. THE TYPE OF DE- 
ALLOCATE IS FLUSH (TYPE-SWITCH=F) ON THE FIRST ATTEMPT IF * 
THAT HAS AN ERROR THEN AND ABEND PROG TYPE WILL BE ISSUED * 
(TYPE-SWITCH=P). THE PROGRAM WILL NOT REQUEST THE LOGGING * 
* OF ERROR DATA (LOG~SWITCH=N). | - 
REEKEKEKEKEEEKEKEEEEKEKEEERERKKEREKKEKEREEKEKEEEKKRKEKEKEKREKEKRKEKKKRRKEE 
**k*EEDTISPLAY "GOING TO TRY A NORMAL DEALLOCATE NOW". 
MOVE "F" TO TYPE~SWITCH. 
CALL "CSDEAL" USING SNA-WORK-AREA 
TY PE- SWITCH 
LOG- SWITCH 
LOG-DATA. 7 
KEKKEKEKKEKEKEKEEEKEKEEEEKEEEEEKEREREERKEEKEEEREKEKERERKEEEKEERRKEERKRERER 
. CHECK THE RETURN CODE VALUES NEXT TO MAKE SURE THE CALL HAS * 
~ COMPLETED WITHOUT ANY ERRORS, . 
REKEKKEEKEKREKKEKEERKEEKKEEKREREKEREREEKKEKEREKEKEREEKEEKEKERREERKKEKRKREE 
PERFORM 900-CHECK-RETURN THRU 900-EXIT. 
IF OK-TO-CONTINUE 
DISPLAY "CONVERSATION HAS BEEN DEALLOCATED" — 
GO TO 999-EXIT 


+ % % % 
+ 


ELSE 7 
DISPLAY "ERRORS FROM CSDEAL F - CHECK RETURN CODES" 
DISPLAY "PROGRAM WILL ISSUE DEALLOCATE/ABEND", 
MOVE "P" TO TYPE-SWITCH. .. 4 

CALL "CSDEAL" USING SNA-WORK-AREA 


TYPE-SWITCH 
LOG- SWITCH 
LOG-DATA,. 
999-EXIT. 
EXIT. 


Figure C-3 (cont). Sample COBOL Program for LU Type 6.2 
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PROGRAM~ID. L6S2CH. 


REEKEKKEREKKKEEEREEKEREKREKKKEKEKEREKEKEREKEEREERKEEEREKREKEKEAEREKRKEEKEEKREEEKKKKEERE 


THIS IS A SAMPLE LU 6.2 PROGRAM WHICH WILL EXERCISE SOME 

OF THE AIF 6.2 VERBS. THE PROGRAM WILL ATTACH TO A CONVERSATION 
THAT IS ALLOCATED BY THE HOST TRANSACTION ADL6. IT WILL. 

READ DATA FROM THE TERMINAL, CONVERT IT TO EBCDIC, BUILD 


* 
*& 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
% 
& 
* 
* 


THE LOGICAL RECORD TO SEND TO THE HOST, SEND THE RECORD 


TO THE HOST AND RECEIVE THE RECORD BACK. 


UPON RECEIVING 


THE DATA BACK, THE PROGRAM WILL COMPARE THE DATA THAT 
WAS RECEIVED WITH THE DATA SENT AND SEND EITHER A CON- 
FIRMATION OR AN ERROR MESSAGE TO THE HOST DEPENDING ON 


WHETHER THE TWO COMPARED THE SAME. 


IT WILL CONVERT THE 


RECEIVED DATA TO ASCII AND DISPLAY IT ON THE TERMINAL. 
IF THE TERMINAL INPUT DATA STARTS WITH: END; THE PROGRAM 
WILL DEALLOCATE THE CONVERSTATION AND END OTHERWISE IT 
WILL DO THE SAME PROCESS WITH te HAS BEEN RECEIVED 


FROM THE TERMINAL. 


ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. LEVEL-6. 
OBJECT-COMPUTER. LEVEL-6. 


* 
* 


DATA DIVISION. 
WORKING-STORAGE SECTION. 


KREKKEEKREKEEKEKKEEKEEREREREKREKEKREREREEKEEEEEEREREEKRREEKERKEEREKREEEEKKREE 


01 START-OF-WS PIC X(32) 
VALUE "START OF WORKING STORAGE SECTION". 

Ol AIF-PARAMETERS PIC ae VALUE “AIF PARAMETERS FOLLOW". 
77  SNA-WORK~AREA PIC 
77 AIF-NODE~NAME PIC ; "SMPLAIF". 
77 REMOTE-LU-NAME PIC "AQ6CICS2°. 
77 STD-NAME PIC 
77 SYNC-LEVEL PIC 
77 HOST-TRANSACTION-NAME PIC 
77 TRANSLATE=TRAN-NAME PIC 
77 RETURN=-CONTROL PIC | 
77 CONVERSATION=-ID PIC 
77 POSTED-CONVERSATION-ID PIC X(4). 
01 LOGICAL~-DATA-BUFFER. 

05 LOGICAL-REC-LENGTH COMP=1. 

05 LOGICAL-RECORD PIC X(80) VALUE SPACES. 
77 DATA~BUFFER~LENGTH PIC 9(5) VALUE 82. 
77 DATA~BUFFER~ALIGNMENT PIC X VALUE "L". 
01 RECEIVE~DATA~BUFFER. | 

05 RECEIVE-REC-LENGTH COMP-1. 

05 RECEIVE-RECORD PIC X(80) VALUE SPACES. 
77 TYPE-OF-RECEIVE PIC X VALUE "B". 
77 RECEIVE-BUFFER-SIZE PIC $(5) VALUE 82. 
77 RECEIVED-DATA-LENGTH PIC 9(5) VALUE 0. 
77 SEND~SENSE-DATA PIC X(8) VALUE ZEROS. 


Figure C-4. Sample COBOL Program for LU Type 6.2 for Host- 
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O01 RETURN-CODE-VALUES. 


01 


W 
01 


77 
77 


77 
77 
77 
77 
77 
01 
01 


Ol 
01 


Figure C-4 (cont). 


05 


05 


MAJOR-RETURN-CODES. 
10 ABEND-DEALLOCATE 

88 ABEND-RECEIVED 
10 STOP-RECEIVED 

88 SOPR-ISSUED-STOP 
10 SERV-REQ-CANCELLED 

88 CALL-WAS-CANCELLED 
10 SERV-REQ-COMPLETE 

88 CALL-WAS-COMPLETED 
10 COBOL-ERROR 

88 CALL-FORMAT-ERROR 
MINOR-RETURN-CODE 


SOPR~STOP-TIME. 


05 


05 


DATE-OF=-STOP. 

10 STOP-YEAR | 
10 STOP-MONTH 
10 STOP-DAY 
TIME-OF-STOP. 

10 STOP-HOUR 

10 STOP-MINUTE 
10 STOP-SECONDS 


RECEIVED~SENSE-DATA _ 
OUTPUT-CONTROL~WORD. 


05 REQUEST-SEND-RECVD 
88 REQUEST-TO-SEND 
05 CONVERSATION-POSTED 
- 88 POSTED-CONVERSATION 
05 WHAT-RECEIVED 
88 DATA-RECEIVED | 
88 LL-DATA-RECEIVED-COMP 
88 LL-DATA-RECEIVED-INCOMP 
88 LL-FIELD-TRUNCATED 
88 CONFIRM-REQUEST 
88 CONFIRM-ON-HOST-PTOR 
88 SEND-REQUEST-RECVD 
88 DEALLOCATE-CONFIRM 
88 DATA-INC-LENG-0 
88 DATA-AVAIL-LENG-0 
LOG- SWITCH 
LOG-DATA 
"ERROR IN PROGRAM". 
TY PE- SWITCH 


CONVERSION-LENGTH 

CONF IRMATION-LOCKS 
TRANSLATE~FROM~ POSITION 
TRANSLATE- TO— POSITION | 
END-OF-AIF PIC X(21) VALUE "END OF AIF PARAMETERS". 
MISC~ PROGRAM-VARIABLES PIC X(26) VALUE 
"OTHER WORKING STORAGE DATA". 


DATA-TO-HOST 


PIC X 


VALUE 
PIC X 
VALUE 
PIC X 
VALUE 
PIC X 
VALUE 
PIC X 
VALUE "Y¥". 

PIC 9(4) VALUE 


PIC 99. 
PIC 99. 
PIC 99. 


PIC 99, 
PIC er 
PIC 9(4). 
PIC X¥(8) VALUE 
PIC X. 
VALUE 
PIC Xe 
VALUE "Y". 
PIC 99, 
VALUE 20. 
VALUE 21. 
VALUE 22. 
VALUE 08. 
VALUE 04. 
VALUE 06. 
VALUE 02. 
VALUE 05. 
VALUE 09. 
VALUE 10. 
PIC X 


ny n 


VALUE 


PIC X(80) VALUE 


PIC X 
COMP=-1. 
PIC X 
COMP=1 
COMP-1 


VALUE 
VALUE 
VALUE 


DATA-TO-HOST-REDEF REDEFINES DATA-TO-HOST. 
CHECK-INPUT-FIELD OCCURS 80 TIMES. 


05 


10 DATA-FIELD-CHAR 


PIC X. 


for Host-Initiated Session 
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"N". 


| PN". 


"N". 
"N". 
FN". 


ZEROS. 


ZEROS. 


m Ns 


oA 


"L". 


VALUE 1. 


l. 


PIC X(80) VALUE HIGH-VALUES. 


Sample COBOL Program for LU Type 6.2 
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01 DATA-FROM-HOST. 
05 DATA-FIELD OCCURS 80 TIMES. 


10 DATA~-FLD~CHAR PIC X. 
O01 DATA-FROM-TERMINAL. 
05 END-INDICATOR PIC XXX. 
88 END-PROGRAM VALUE "END", 
05 FILLER PIC X(77) VALUE SPACES. 
01 SWITCH-COUNT-VARIABLES. 
05 INDX1 COMP-1 VALUE 1. 
05 NUMBER-CHARS PIC 9(4) VALUE ZEROS. 
05 CALC-LENGTH COMP-1 VALUE ZEROS. 
05 TEMP-LENGTH PIC 9(5) VALUE ZEROS. 
05 ERROR-IN-CALL- SW PIC 9 VALUE 0. 
88 OK-TO-CONTINUE VALUE 0. 
05 RECORD-BUILT-SW PIC 9 VALUE 0. 
88 #RECORD-BUILT VALUE 1. 
05 NO-INPUT- Sw | PIC 9 VALUE 0. 
88 NO-INPUT-DATA VALUE l. 
05 COMPARE-REC-SW PIC 9 VALUE 0. 
88 COMPARE-OK VALUE 0. 
05 NO-MORE-SW PIC 9 VALUE 0. 
88 NO-MORE-TO-CHECK VALUE 1. 
01 ENTER-MESSAGE PIC X(80) VALUE 


"PLEASE ENTER DATA TO TRANSMIT TO HOST OR END TO QUIT". 
01 END-OF-WORK-STOR PIC X(19) VALUE "END WORKING STORAGE". 
LINKAGE SECTION. 


77 NODE-NAME _ PIC X(8). 
77 STD PIC XX. 
77 BASE-LEVEL PIC 99, 
PROCEDURE DIVISION USING NODE-NAME 

STD 

BASE-LEVEL. 
000-BEGIN. 


DISPLAY "START OF LU 6.2 SAMPLE COBOL PROGRAM 

MOVE NODE-NAME TO AIF-NODE-NAME. 

MOVE STD TO STD-NAME. 

DISPLAY "AIF NODE IS: " NODE-NAME " STD IS: " STD. 
REEEERRREEREEREREEERREREREEEEEERREEREEEEERERERERREREREEERERREEKKE 
* START BY TRYING TO ATTACH TO A CONVERSATION WITH HOST CICS * 
. TRANSACTION ADL6. | * 
HEREKEEREEEREKEEEEEERER ERE ERE REE REE ERE RERERREREEEEREEEREREERERESR 

PERFORM 100-ATTACH~CONVERSATION THRU 100-EXIT. 

IF OK-TO-CONTINUE | 

NEXT SENTENCE 
ELSE 
GO TO 099-TERMINATE. 


Figure C-4 (cont). Sample COBOL Program for LU Type 6.2 
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TTT TTT ITE TITTLE 


= IF THE CONVERSATION IS ATTACHED THEN WE MUST ISSUE A * 
* RECEIVE AND WAIT SINCE A HOST INITIATED PROGRAM ALWAYS - 
* COMES UP IN RECEIVE STATE. * 


(Ee eee ERE EE SEALE EE SE RE RRA ER RERRERARSERS EASE RERARASLESLE SESE AE SSS ESSE FS 


PERFORM 505-ISSUE-CSRAW THRU 500-EXIT. 
IF OK-TO-CONTINUE 
NEXT SENTENCE 
ELSE | | 
DISPLAY "INITIAL CSRAW PROBLEM - PROGRAM WILL TERMINATE" 
PERFORM 999-END-PROGRAM THRU 999-EXIT 
GO TO 099-TERMINATE. 
KRKEKEKKEKKEEKEEEEKEREKEKEEREKKEREKKRAREEEEEEEEERERERRERREEEERERRRREKE 
* CHECK THE WHAT RECEIVED VALUE TO MAKE SURE WE HAVE BEEN * 
* PUT INTO A SEND STATE. * 
ree PEERS ESE SESE SRE SEE SAE SEE RLESLE ERASERS EAA ESE RASA ERS ERE RES EARS RSS SS EY 
IF SEND-REQUEST-RECVD 
NEXT SENTENCE 
ELSE 
DISPLAY "INITIAL WHAT RECEIVED IS UNEXPECTED" 
DISPLAY "WHAT RECEIVED VALUE IS: " WHAT-RECEIVED 
DISPLAY "PROGRAM WILL TERMINATE" —_ 
PERFORM 999-END-PROGRAM THRU 999-EXIT 


GO TO 099-TERMINATE. 
HK KERRI IIH ERI IKKE KK IKKE ERIK IEEE KERRIER EEE EERE REE REREEEEREEER 


* AT THIS POINT THE CONVERSATION HAS BEEN ATTACHED AND WE : 
- ARE IN A SEND STATE THAT ALLOWS US TO PROCEED WITH THE * 
* REMAINDER OF THE PROGRAM PROCESS. ii 


RRR KEIR RRR IK EERE ERE EEE REAR E RAKE REE RE RREREREEEEE 


005-CONTINUE. 
PERFORM 200-GET-RECORD THRU 200-EXIT. 
IF END-PROGRAM | | 
_ DISPLAY "END OF RUN REQUESTED - PROGRAM WILL END" 
PERFORM 999-END-PROGRAM THRU 999-EXIT 
GO TO 099-TERMINATE 
ELSE 
NEXT SENTENCE. 
MOVE HIGH-VALUES TO DATA-TO-HOST. 
MOVE SPACES TO DATA-FROM-HOST 
RECEIVE-RECORD. 
MOVE DATA-FROM-TERMINAL TO DATA-TO-HOST. 
MOVE 0 TO INDX1 
NO-INPUT- SW 
RECORD-BUILT- SW 
LOGICAL REC-LENGTH 
DATA-BUFFER-LENGTH. 
PERFORM 300-BUILD-LOGICAL THRU 300-EXIT VARYING INDX1 FROM 1 
BY 1 UNTIL RECORD-BUILT. 
IF NO-INPUT-DATA 
DISPLAY "NO DATA WAS ENTERED FROM THE TERMINAL" 
DISPLAY "PLEASE KEY SOME DATA BEFORE HITTING ENTER KEY" 
GO TO 005-CONTINUE 


Figure C-4 (cont). Sample COBOL Program for LU Type 6.2 
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ELSE 
NEXT SENTENCE, 
MOVE DATA-TO-HOST TO LOGICAL~RECORD. 
PERFORM 400-SEND-RECORD THRU 400-EXIT. 
IF OK-TO-CONTINUE 
NEXT SENTENCE 
ELSE | 
PERFORM 999-END-PROGRAM THRU 999-EXIT 
GO TO 099-TERMINATE. 
010-DO-RECEIVE. 
PERFORM 500-RECEIVE-INFO THRU 500-EXIT. 
0101-NEXT-RECEIVE. 
IF OK~TO-CONTINUE 
NEXT SENTENCE 
ELSE 
PERFORM 999-END-PROGRAM THRU 999-EXIT 
GO TO 099-TERMINATE. 
015-CHECK-WHAT~ RECEIVED. 
IF DATA-RECEIVED 
PERFORM 600-COMPARE-INOUT THRU 600-EXIT 
PERFORM 505-ISSUE-CSRAW THRU 500-EXIT 
GO TO 0101-NEXT-RECEIVE 
ELSE 
IF DEALLOCATE-CONFIRM 
PERFORM 700-ISSUE-CONFIRMED THRU 700-EXIT 
GO TO 099-TERMINATE 
ELSE 
IF CONFIRM-ON-HOST-PTOR 
GO TO 020-CHECK~COMPARE 
ELSE 
NEXT SENTENCE. 
DISPLAY "UNEXPECTED WHAT RECEIVED FIELD". 
DISPLAY “WHAT RECEIVED IS: " WHAT-RECEIVED. 
PERFORM 705-SEND-ERROR THRU 705-EXIT. 
IF OK-TO-CONTINUE © 
NEXT SENTENCE 
ELSE | 
PERFORM 999-END-PROGRAM 
GO TO 099-TERMINATE. 
GO TO 0101-NEXT-RECEIVE. 
020-CHECK~COMPARE. 
IF COMPARE-OK 
PERFORM 700-ISSUE-CONFIRMED THRU 700-EXIT 
ELSE 
PERFORM 705-SEND-ERROR THRU 705-EXIT. 
IF OK-TO-CONTINUE 
NEXT SENTENCE 


THRU 999-EXIT 


ELSE 7 
PERFORM 999-END-PROGRAM THRU 999-EXIT 
GO TO 099-TERMINATE. 

GO TO 005-CONTINUE. 
099-TERMINATE. 

STOP RUN. 


Figure C-4 (cont). Sample COBOL Program for LU Type 6.2 
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*. 
* 
* 
100-ATTACH-CONVERSATION. 
KKK KKKEKKKEREREKEEKREEK ERE ER ERE RK RK 
* THIS ROUTINE WILL ISSUE A CSATCH TO ATTEMPT TO ATTACH AN * 
* LU 6.2 CONVERSATION WITH THE HOST CICS TRANSACTION ADL6. * 
* SINCE THE CONVERSATION WAS ALLOCATED BY THE HOST TRANS- * 
* ACTION WE MUST DO AN ATTACH COMMAND SO AIF CAN PUT US IN * 
CONVERSTAION WITH THE HOST TRANSACTION. * 
KEKE ERE ER 
*****DISPLAY "GOING TO DO CSATCH NOW". 
CALL "CSATCH" USING SNA-WORK-AREA 
AIF-NODE-NAME 
REMOTE-LU- NAME 
CONVERSATION-ID 
STD-NAME 
RETURN- CONTROL 
SYNC-LEVEL 
RETURN-CODE-VALUES 
SOPR-STOP-TIME 
RECEIVED-SENSE-DATA 
OUTPUT-CONTROL~WORD. 
HARKER KER EK KEE EER EKER EEE KERR EEE REALE AAA AEE LEE ELRRERERRRRRR RE 
* CHECK THE RETURN CODE VALUES NEXT TO MAKE SURE THE CALL HAS * 
* COMPLETED WITHOUT ANY ERRORS, * 
KREEKKKEKKKEEEKKEEKEERERRKKEKEEKEREEEEKKEEKEKEKEREERKEREEKEREREKRREEEEESE 
PERFORM 900-CHECK-RETURN THRU 900-EXIT. 
IF OK-TO-CONTINUE 
NEXT SENTENCE 
ELSE 


* 


DISPLAY "ERRORS FROM CSATCH REQUEST = CHECK RETURN CODES" 
DISPLAY "MAJOR RETURN CODES ARE: " MAJ OR-~RETURN-CODES a 
DISPLAY "PROGRAM WILL END - NO CONVERSATION" 
| GO TO 100-EXIT. | 
RKEEKKEKEEEKEKREEKERKREKREKEKREEREREEEEKREEKEEEKREKERKEKREKRRKREKREKKRRKKKKEKEE 
DISPLAY "CONVERSATION HAS BEEN ATTACHED - ID IS: " 
CONVERSATION<-ID. 
EXIT. 
* EJECT 
200-GET-RECORD. 

MOVE HIGH-VALUES TO DATA-FROM-TERMINAL. 
REKKEEKKERKEKERKEKEKKEEKKKEEKEEEEEKEKEEKKEKEEKRAREERRKKEERKKRRKRKKEKRKREKKRKEESR 
* NOW GET SOME DATA FROM THE TERMINAL OPERATOR TO SEND TO THE * 
* HOST REMOTE PROGRAM. il 
KRAEKKEKKKKERKEEREREKEEEKEEEEKEKEREKKERKKEKKEEKKKEREKKKKKKERRKRKKKKRKRKEE 

DISPLAY ENTER-MESSAGE. 

ACCEPT DATA-FROM-TERMINAL. 

EXIT. 

*SKIP3 
300—-BUILD~LOGICAL. 


Figure C-4 (cont). Sample COBOL Program for LU Type 6.2 
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KREEKKEEEKKEEKKEKEKREKEREEKERKEEREREEKEEREKEKREKREEEEKEEEKEKEEREKREEREKKEEKEKEK 


* NOW BUILD THE LOGICAL RECORD THAT WILL BE SENT TO THE HOST * 
* BY CALCULATING THE LENGTH OF THE DATA RECEIVED THEN CONVERT * 
* THE DATA TO EBCDIC. * 
KREERKREKAKEEEREEEKEKEREKEEKEREKEEEKKRKKEEKREREKEKEREREEEKREEKEKEKEKER 
IF CHECK-INPUT-FIELD (INDX1) IS EQUAL TO HIGH-VALUES 
MOVE 1 TO RECORD-BUILT-SW 
COMPUTE CALC-LENGTH = INDX1]1 - l | 
IF CALC-LENGTH IS EQUAL TO ZEROS OR 
CALC-LENGTH IS LESS THAN ZEROS 
MOVE 1 TO NO-INPUT-SW 
GO TO 300-EXIT 
ELSE 
ADD 2 TO DATA-BUFFER-LENGTH 
LOGICAL~REC-LENGTH 
MOVE CALC-LENGTH TO CONVERSION-LENGTH 
MOVE LOGICAL-REC-LENGTH TO TEMP-LENGTH 
PERFORM 305-CONVERT-RECORD THRU 305-EXIT 
ELSE 
ADD 1 TO DATA~BUFFER-LENGTH 
LOGICAL~REC-LENGTH. 
300-EXIT. 
EXIT. 
*SKIP3 
305-CONVERT-RECORD. 
KRHEEEKKEEEKKREEKEKERKEKERKEEKEKEREREKEKREREEEEREKEEEEEEREEREREKEEEEKKREEK 
* THIS ROUTINE WILL ISSUE THE CSACEB CALL TO CONVERT THE DATA * 
* FROM THE TERMINAL TO EBCDIC BEFORE IT IS SENT TO THE HOST, * 
KREEKKKEEEEREKREKEKKKEEREREKERERERRKEEKEKREKRERKEEEKEREKKEEREKEKEKKKEEKRKEEE 
CALL "CSACEB" USING SNA~WORK-AREA 
DATA- TO-HOST 
TRANSLATE=FROM~ POSITION 
DATA-TO-HOST 
TRANSLATE~TO- POSITION 
CONVERSION-LENGTH. 
IF CALL~FORMAT~ ERROR 
DISPLAY "COBOL ERROR IN CSACEB CALL - CHECK RETURN CODES" 
DISPLAY “COBOL RETURN CODE IS: " MINOR-RETURN-CODE 
DISPLAY “PROGRAM WILL TERMINATE* 7 
MOVE 1 TO ERROR~- IN~-C.iLL= SW 
ELSE 
NEXT SENTENCE. 
EXIT. 
*EJECT 
400-SEND-RECORD. 


Figure C-4 (cont). Sample COBOL Program for LU Type 6.2 
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RHEE RE REE KEE REE EERE EEE EKER REE ERE RREEREREREREERKAKE 


* THIS ROUTINE WILL ISSUE THE CSSDAT CALL TO SEND THE DATA * 
* TO AIF. AIF WILL NOT SEND a DATA TO THE HOST UNTIL WE * 
* ISSUE ANOTHER CALL TO FORCE PLUSH OF THE BUFFERS. THIS *® 
* WILL BE DONE IN THE NEXT arty * 
KKK KIRKE ERE KEKE REE REE KER ERE KEK ERE KEE KR KERR EEK EERE RERRKKKEARKES 
*kKEXDTSPLAY "GOING TO DO CSSDAT NOW". 
CALL "CSSDAT" USING SNA~WORK-AREA | 
LOGICAL-DATA-BUFFER 
DATA~BUFFER~LENGTH. 
He HH HH KKK KEKE RE RERERREKEREEEEERRE RE RERREE REE KER ERE EKER 
* CHECK THE RETURN CODE VALUES NEXT TO MAKE SURE THE CALL HAS * 
* COMPLETED WITHOUT ANY ERRORS. * 
LARA K KKK KK ERR EERE ERM EREEEKKEKRERKEEEKERKERKKKKEKE 
PERFORM 900-CHECK-RETURN THRU 900-EXIT. 
IF OK-TO-CONTINUE 
NEXT SENTENCE 
ELSE 
DISPLAY "ERRORS FROM CSSDAT REQUEST - CHECK RETURN CODES" 
DISPLAY "PROGRAM WILL TERMINATE". 
400-EXIT. 
EXIT. 
*EJ ECT 
500-RECEIVE-iNFO. 
KIKI KE KIKI EERIE HERI TREK EER ERR EKER EKER KK REE 
THIS ROUTINE WILL ISSUE A NUMBER OF AIF VERBS. FIRST IT 
WILL DO A CSPTOR WHICH WILL CAUSE AIF TO FLUSH THE SEND 
BUFFER SENDING THE DATA FROM THE CSSDAT CALL AND A SEND 
INDICATOR TO THE HOST PROGRAM TO TELL THAT PROGRAM IT CAN 
TURN AROUND AND SEND TO THIS PROGRAM. 
AFTER THE CSPTOR, THE PROGRAM WILL ISSUE A CSRAW TO WAIT 


FOR THE DATA TO COME BACK FROM THE HOST AND RECEIVE IT. 
HKKKKK IKKE KERR EEE KE EERE EKER EERE RKEREREEKEEKKKKEE 


KHEKKEKEKKEKEEKEKEKEEREKKEEKEKEEEEEEREKEKKEEKERRREKREKKEKKR KKK 


* THE TYPE OF PREPARE TO RECEIVE IS A FLUSH (TYPE-SWITCH=F) * 
* THE TYPE OF LOCKS IS LONG (CONFIRMATION-LOCKS=L) * 
RKEKEKEKEKEKKEKREEKEEEKKEKEKEEKREEKEEKERREEKKEEKRKEKKEKEKKRKKKRRKERKRKEKESE 
***k**kDISPLAY "GOING TO DO CSPTOR TYPE F NOW". 
MOVE "F" TO TYPE-SWITCH. 
CALL "CSPTOR" USING SNA-WORK-AREA 
TYPE- SWITCH 
CONF IRMATION-LOCKS. 
HK KKK KEKE RK HERR KIKI III RII III KER EER AEE IRIE SII AKE AEG KEK 
* CHECK THE RETURN CODE VALUES NEXT TO MAKE SURE THE CALL HAS * 
* COMPLETED WITHOUT ANY ERRORS. * 
REKKEKEKKRKEKEKEKEKEEEEKEERKERREKREEKEKKEREKKEKKEKREKKKKEKEKRKKEKREKKKE 
PERFORM 900-CHECK-RETURN THRU 900-EXIT. 
IF OK-TO-CONTINUE 
“NEXT SENTENCE 
ELSE 
DISPLAY "ERRORS FROM CSPTOR - CHECK RETURN CODES" 
DISPLAY "PROGRAM WILL TERMINATE" 
GO TO 500-EXIT. 
505-ISSUE-CSRAW. 


+ F be He HF H 
+ + + + He Ft 


+ 


Figure C-4 (cont). Sample COBOL Program for LU Type 6.2 
for Host-Initiated Session 
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KHEEKEKREKKEEKEEKEEEEREEREEEEREEREREREEEEREREEREEREEREREKEEEEEKEREKEKKE 


ISSUE THE CSRAW TO CAUSE THE PROGRAM TO WAIT FOR A RECEIVE 
AND RECEIVE THE DATA COMING BACK FROM THE HOST TRANSACTION. * 
THE TYPE OF RECEIVE IS A BUFFER (TYPE-OF-RECEIVE=B) SO bl 
AIF WILL PASS AN ENTIRE BUFFER'S WORTH OF DATA AS OPPOSED * 
TO A LOGICAL RECORD. THIS ROUTINE WILL ALSO BE USED TO 
* 
* 


+ ee He F 


* RECEIVE STATUS OR STATE CHANGE INFORMATION. 
KEKKKEKEKEKEEKEEEREKREEKREEKEEEREREREREEREREREREREREREKEEKKREREKEEEREKKEE 
*****DISPLAY "GOING TO DO CSRAW NOW". 
CALL "CSRAW" USING SNA-WORK-AREA 
RECE IVE-DATA-BUFFER 
RECEIVE-BUFFER-SIZE 
TY PE-OF-RECEIVE 
RECEIVED-DATA-LENGTH. 
KREKKKKKKEKEKKKEEKEKEEEKEEKEKEEKEKEKEKEKERERKEEEEEKEREREKEEEREKEKEEK 
* CHECK THE RETURN CODE VALUES NEXT TO MAKE SURE THE CALL HAS * 
* COMPLETED WITHOUT ANY ERRORS. * 
REEKKEKEKEKEEKKEKEEREEKEEEEKREEKEEKEKRREKEEEEKEKEEEKEEEKEEKKREEREEEKEKERE 
PERFORM 900-CHECK-RETURN THRU 900-EXIT. 
IF OK~-TO-CONTINUE 
NEXT SENTENCE 
ELSE 
DISPLAY "ERRORS FROM CSRAW - CHECK RETURN CODES" 
DISPLAY "PROGRAM WILL TERMINATE". 
500-EXIT. 
EXIT. 
*EJECT 
6 00-COMPARE- INOUT. 
KEAREKEEKREKEEEEEKREREEEKREERRREEREREEEEEREERREKEREERERRKERRERREREEEE 
* THIS ROUTINE WILL COMPARE THE DATA RECEIVED FROM THE HOST * 
* WITH THE DATA ORIGINALLY SENT. IF THEY ARE NOT THE SAME * 
* A SWITCH IS SET AND ERROR MESSAGES ARE DISPLAYED. * 
SREKEEEKEEERKEREEREEEEREKREREEREEREEEEEEEEREREEREKREEREAEEEERAERKEEEAEET 
DISPLAY "GOING TO COMPARE RECORD SENT TO RECEIVED NOW". 
MOVE RECEIVE-RECORD TO DATA-FROM-HOST. 
IF DATA-BUFFER-LENGTH IS EQUAL TO RECEIVED-DATA-LENGTH 
NEXT SENTENCE 
ELSE 
DISPLAY "BUFFER LENGTHS ARE NOT THE SAME" 
DISPLAY "SEND LENGTH: " DATA-BUFFER-LENGTH | 
" RECEIVE LENGTH: " RECEIVED-DATA-LENGTH. 
IF LOGICAL-REC-LENGTH IS EQUAL TO RECEIVE-REC-LENGTH 
NEXT SENTENCE 
ELSE | 
DISPLAY "LOGICAL LENGTHS ARE NOT THE SAME". 
MOVE 0 TO COMPARE-REC-SW 
NUMBER-CHARS 
NO-MORE- SW 
INDX1. 
COMPUTE RECEIVE-REC-LENGTH = RECEIVE-REC-LENGTH - 2. 
PERFORM 800-COMPARE-EACH-FIELD THRU 800-EXIT 
VARYING INDX1 FROM 1 BY. 1 
UNTIL NO-MORE-TO-CHECK. 


Figure C-4 (cont). Sample COBOL Program for LU Type 6.2 
for Host-Initiated Session 


C49 GR11-02 


IF COMPARE-OK 
DISPLAY "DATA FROM HOST IS THE SAME AS DATA SENT" 
ELSE 7 
DISPLAY "DATA FROM HOST IS NOT THE SAME AS DATA SENT" 
DISPLAY "POSSIBLE LOGIC ERROR". 
605-CONVERT=-DATA. _ : 
KKREKKKEKKKKEEERERKEKEEEREKEKEEEREEKERERKR EERE 
* THIS ROUTINE WILL CONVERT THE RECEIVED DATA FROM EBCDIC TO hg 
* ASCII AND DISPLAY THE RECORD ON THE TERMINAL. * 
KKEKKEKKEEKEKEKEKEKEKEREREEEKERERERERERERERERERERERERREEERREEEEERERKEREKES 
COMPUTE CONVERSION-LENGTH = RECEIVE-REC-LENGTH. 
CALL "CSEBAC" USING SNA-WORK-~AREA 
4 DATA~FROM-HOST 
TRANSLATE~FROM- POSITION 
DATA~FROM-HOST 
TRANSLATE- TO~ POSITION 
CONVERSION-LENGTEH. 
IF CALL~FORMAT=-ERROR 
DISPLAY "COBOL ERROR IN CSEBAC CALL - CHECK RETURN CODES" 
‘DISPLAY "COBOL RETURN CODE IS: " MINOR-RETURN-CODE 
DISPLAY "PROGRAM WILL TERMINATE" 
MOVE 1 TO ERROR-IN-CALL~ SW 
GO TO 600-EXIT 
ELSE 
NEXT SENTENCE. 
DISPLAY "RECIEVED DATA IS: ". 
DISPLAY Peer ons 
600- ~EXIT. 
EXIT. 
*EJECT 
-700-ISSUE-CONFIRMED. 
KREKEKKKEKEEKEKKEEKKEEKEEREEEKEREREEREEREEEERERERRERERERERREKRKEEKEKEERERKEE 
- THIS ROUTINE WILL ISSUE A CSCNFD CALL. THIS WILL CAUSE AIF * 
* TO SEND A CONFIRMATION TO THE HOST TRANSACTION. i 
KERKKEKEREKREEKEKEEKKEEKEKKKEEEEEEKEEEKEEEEKEKEEKEKREKEEEKKEKKKRKEEKRKEK 
***X*EDISPLAY "GOING TO DO CSCNFD NOW". 

CALL "CSCNFD" USING SNA-WORK-AREA. 
KEKKEKEKKEKEEKEEKKREKEREKREEEEEKEEEEEEREEKKEKEKKEKEREEKRKKKKKKEKRKEKE 
* CHECK THE RETURN CODE VALUES NEXT TO MAKE SURE THE CALL HAS * 
* COMPLETED WITHOUT ANY ERRORS. 
REKEEEKKEEKRKEKKREEKKEEEKKEKKEKEEKEKEKKEEEKEKEKEEERKEEEEKKEEKKKEKKEEKEKKEKKEEEE 

PERFORM 900-CHECK-RETURN THRU 900-EXIT. 

IF OK-TO-CONTINUE 

NEXT SENTENCE 
ELSE 
DISPLAY "ERRORS FROM CSCNFD - CHECK RETURN CODES" 
DISPLAY "PROGRAM WILL TERMINATE". 
700-EXIT. 
EXIT. 
*SKIP3 
705-SEND~-ERROR. 


Figure C-4 (cont). Sample COBOL Program for LU Type 6.2 
for Host-Initiated Session 
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KREEKKEKEKEKEKKEEKEKRKEEKKEKEEKRERKKEEKEEEREKEREEKERKEERKEEKEKKKEEKERKEKEK 


* THIS ROUTINE WILL ISSUE A CSSERR CALL TO NOTIFY THE HOST * 
= TRANSACTION OF AN ERROR IN PROCESSING. THE TYPE OF ERROR * 
* IS PROG (TYPE-SWITCH=P). THE PROGRAM WILL NOT REQUEST THE * 
* LOGGING OF DATA (LOG-SWITCH=N) . | * 
KEKKEKEKEKKEEKEEEEREEEEEKEKEEKEEEKEEEKEKEEKERREREEEKREKEKEREKEKEKEKEK 
k*k*XEDISPLAY "GOING TO DO CSSERR TYPE P NOW". 
MOVE "P" TO TYPE-SWITCH. 
CALL "CSSERR" USING SNA-WORK-AREA 
TY PE- SWITCH 
LOG- SWITCH 
LOG-DATA. 
REKKEKEEEKKEKKEKEREKEEEKEREKEKEKRKEKEEKEEKEEREKEEREREKRKEEEKREREEKEKEREEKE 
* CHECK THE RETURN CODE VALUES NEXT TO MAKE SURE THE CALL HAS * 
* COMPLETED WITHOUT ANY ERRORS. 
KKEEKKEKEKKEKEREKEKEKEEKEEEEKEEEKKEKEEEEEEKEEKEKEKEREEEEEREEKEKEKKEREKE 
PERFORM 900-CHECK-RETURN THRU 900-EXIT. 
IF OK~-TO-CONTINUE 
NEXT SENTENCE 
ELSE 
DISPLAY "ERRORS FROM CSSERR - CHECK RETURN CODES" 
DISPLAY "PROGRAM WILL TERMINATE". 
EXIT. 
*EJECT 
800-COMPARE~EACH-FIELD. 
IF CHECK-INPUT-FIELD (INDX1) IS EQUAL TO DATA-FIELD (INDX1) 
ADD 1 TO NUMBER~-CHARS 
ELSE . 
ADD 1 TO NUMBER~CHARS 
DISPLAY "CHARACTER NOT THE SAME IS: * 
NUMBER-CHARS 
MOVE 1 TO COMPARE-REC= SW. 
IF INDX1 IS EQUAL TO RECEIVE-REC-LENGTH 
MOVE 1 TO NO-MORE-SW 
DISPLAY "END OF COMPARE" 
ELSE 
NEXT SENTENCE. 
800-EXIT. 
EXIT. 
*SKIP3 
900-CHECK~RETURN. 
KEKEKEKEEKEKEEKEREEEEEEEEEEREREEEREKEEEEEEEREEREEKEEREEEEKEREREEKE 
* THIS ROUTINE WILL CHECK THE RETURN CODES FROM THE VARIOUS 7 S 
* AIF VERB CALLS. A SWITCH IS SET TO INDICATE WHETHER THE = 
* CALL WAS OK OR NOT. WHEN THE RETURN CODES ARE NOT OK THEY * 
= WIL BE DISPLAYED ON THE TERMINAL. = 
KKKKEKEKKKEKEKEKEEKEEEEKEKEKEREERREREREKEEREEEKREREEEEEREKEKEKKEKEEKRKEEE 
MOVE 0 TO ERROR-IN-CALL-SW. 
IF CALL-~FORMAT- ERROR 
MOVE 1 TO ERROR~IN-CALL- SW 
DISPLAY “COBOL FORMAT ERROR IN CALL -— RETURN CODE IS: " 
MINOR-RETURN-CODE 
DISPLAY "NEXT MESSAGE INDICATES CALL IN ERROR" 


Figure C-4 (cont). Sample COBOL Program for LU Type 6.2 
| for Host-Initiated Session 
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GO TO 900-EXIT 
ELSE 
NEXT SENTENCE. 
IF SOPR-ISSUED-STOP | 
DISPLAY "“SOPR OPERATOR HAS ISSUED A STOP COMMAND" 
DISPLAY "STOP TIME IS: ." SOPR~STOP-TIME 
ELSE 
NEXT SENTENCE, 
IF ABEND~-RECEIVED 
DISPLAY "AN ABEND/DEALLOCATE HAS BEEN RECEIVED" 
DISPLAY "SESSION WILL BE TERMINATED" 
MOVE 1 TO ERROR-IN-CALL- SW 
ELSE 
NEXT SENTENCE. 
IF CALL-WAS-COMPLETED AND 
MINOR-RETURN-CODE IS EQUAL TO ZEROS 
GO TO 900-EXIT 
ELSE 
NEXT SENTENCE. 
DISPLAY "VERB CALL CONTAINS ERRORS - RETURN CODE IS: " 
MINOR~RETURN-CODE. 
MOVE 1 TO ERROR-IN-CALL~SW. 
900-EXIT. 
EXIT. 
*SKIP3 
999-END-PROGRAM. 
TESTI CICI PECTIC TTI LI CTC IICT CITI C TI CI TIC ITT TIT IT TT STITT TTT TTT tT 
THIS ROUTINE WILL BE USED TO ISSUE A CSDEAL CALL ENDING THE * 
CONVERSATION WITH THE HOST TRANSACTION. THE TYPE OF DE- * 
ALLOCATE IS FLUSH (TYPE-SWITCH=F) ON THE FIRST ATTEMPT IF ss 
THAT HAS AN ERROR THEN AND ABEND PROG TYPE WILL BE ISSUED * 
(TYPE-SWITCH=P). THE PROGRAM WILL NOT REQUEST THE LOGGING * 
* 
* 


t+ + & 


~ OF ERROR DATA (LOG-SWITCH=N). 
SKI KKK KK RR RR RRR RIKER KERR RAEI IA REE AK ERR RIAA IRIE RAR ITAA EE 


***X*DISPLAY "GOING TO TRY A NORMAL DEALLOCATE NOW". 
MOVE "F" TO TYPE-SWITCH. 
CALL "CSDEAL" USING SNA-WORK-AREA 
7 TY PE~ SWITCH 
LOG- SWITCH 
LOG-DATA. 


‘Figure C-4 (cont). Sample COBOL Program for LU Type 6.2 
for Host-Initiated Session 
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KKEKEKKEKEKEKKKEKEKKKEKEREEEKKEKEEKEEKKEKKEEKRKEEKKKEKEKEKKEEEKKKKEKKKEKKEKKEKEER 


* CHECK THE RETURN CODE VALUES NEXT TO MAKE SURE THE CALL HAS * 
* COMPLETED WITHOUT ANY ERRORS. * 
KREKEKEKREKEKKEKKEKEKEEKEEKEKEKEEEREKEKKEEKEKKEKEEKEKEKEKEKEKKERKEEKEKS 
PERFORM 900-CHECK-RETURN THRU 900-EXIT. 
IF OK-TO-CONTINUE 
DISPLAY "CONVERSATION HAS BEEN DEALLOCATED" 
GO TO 999-EXIT 
ELSE : 
DISPLAY "ERRORS FROM CSDEAL F - CHECK RETURN CODES" 
DISPLAY "PROGRAM WILL ISSUE DEALLOCATE/ABEND". 
MOVE "P" TO TYPE-SWITCH. 
CALL "CSDEAL" USING SNA-WORK-AREA 
TY PE- SWITCH 
LOG- SWITCH 
LOG-DATA. 
999-EXIT, 
EXIT. 


Figure C-4 (cont). Sample COBOL Program for LU Type 6.2 
for Host-Initiated Session 
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Appendix D 


SESSION CALL RETURN 
CODES 


The following pages show the unique return codes that are 
returned by AIF after the execution of each call or verb. As 
described in the Assembly language sections, bits 0 through 4 of 
the return code have special meaning. The tables in this section 
present the return codes both after these bits have been masked 


out. 


The following tables are included in this appendix: 


@ 


@ 


Table 
Table 
Table 
Table 
Table 


Table 


D=-1 
D-2 
D-3 
D-4 
D-6 


D-7 


provides 


provides 


‘provides 


provides 
provides 


provides 


the 
the 
the 
the 
the 


the 


AIF session call return codes 
individual return codes 

COBOL RETURNS fields 

general COBOL RETURN-B codes 
interrupt types 


attribute types. 
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Table D-l. AIF Session Call Return Codes 


SESSION ABORTED, CHECK SC ABT FIELD FOR 


Meaning 


8000 RCABRT 
: REASON 
*4000 {| RCSTOP | SOPR COMMAND RECEIVED 
2000 RCRINT INTERRUPT RECEIVED 
1000 RCSCNL | SERVICE REQUEST NOT PROCESSED OR 
CANCELLED 
0800 RCSCMP SERVICE REQUEST COMPLETED 
O7FF RCMASK MASK FOR INDIVIDUAL RETURN CODES (SEE 


TABLE D-2) 
| *Return codes marked with an asterisk can be received 
after any session call. 
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: COBOL | 
| RETURN-B 


Table 


Assembly | 


Macro | | 
Label | Meaning 


Language | 


D=-2 e 


Individual Return Codes 


NO ERROR 

PERMISSION TO SEND 

DATA RECEIVED BUT NO READ 
NEGATIVE RESPONSE RECEIVED FROM 
HOST 

BIND NEGOTIATION FAILED 

LU ATTACHED BY REMOTE 

IMPROPER STATE 


INVALID INPUT CONTROL INDICATORS 
RECEIVE BUFFER TOO SMALL 

INVALID INTERRUPT TYPE 

INVALID STATUS VALUE OR USER CODE 
NO OUTSTANDING ASYNCHRONOUS ORDER 
ACCEPT TIMED OUT 

RESTART NOT POSSIBLE 


SYSTEM ERROR 

RESOURCE NOT AVAILABLE 
SEND/RECEIVE REJECT, DATA TRAFFIC 
INACTIVE/RESET | 

INVALID NODE NAME | 
INVALID SESSION ID 


| ASYNCHRONOUS SERVICE REQUEST 
| OUTSTANDING | 
INVALID SERVICE REQUEST (OPERATION 


CODE) 7 

DATA LENGTH ERROR ON SEND 
INVALID FUNCTION CODE ON 
SSWANY /CSWANY 

IMPROPER CALLING SEQUENCE 


| NODE NOT YET ACTIVE 
| NO ACTIVE LU FOR SESSION 


NO LU AVAILABLE FOR SESSION © 
INVALID STD NAME 
INVALID LU TYPE IN STD 


| NO LU ATTACHED FOR SSACPT 


SESSION UNBOUND BY HOST 


| UNEXPECTEDLY 


SESSION SHUTDOWN BY HOST ORDERLY 


| YOU ARE TIMED OUT BY SOPR COMMAND | 
| SESSION ABORT DUE TO UNRECOVERABLE | 
| PROGRAM ERROR 
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Table D-2 (cont). Individual Return Codes 


COBOL |Assembly|Macro 
RETURN-B | Language, Label 


| Meaning 


| ACTLU/DACTLU RECEIVED 
| LINK FAILURE 

| ACTPU/DACTPU RECEIVED 
SA (SOPR) 'ABORT' AIF NODE 
#1812 SS ABORT AIF GROUP 


*Return codes marked with an asterisk can be received after 
any session call. | 
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Table D-3. COBOL Session Call RETURNS fields. 


SESSION-ABORT |'LU-LU session or node has been 
; aborted 


| SOPR STOP command received. 


STOP-RCVD 


| Interrupt received. See INTERRUPT 
output parameter 


INTRPT-RCVD 


SERV-REQ-CANCLD ‘This request has been cancelled. The 
|}application must issue it again if 


| necessary. 


SERV-REQ-COMPLETE | 


This request has been completed. 


| COBOL-INT-ERROR 


| Error in using COBOL interface to 
| AIF. See RETURN-B for return code. 


Table D-4. General COBOL RETURN-B Values 


| Unrecognized parameter 
| Parameter must be 1 byte long | 
| Parameter must be 5 bytes long | 
| Default not acceptable 


| Node name error 

| Remote LU name error 
Not session-ID 

| Unknown interrupt type 
| Nondecimal digit 

| Nonhexadecimal digit 
Error in conversion 
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Table D-5. 


Interrupt-Type a Lo acd 


- COBOL Hex 
Value Value | Label | Comment 


40C0 
40Cl 
40C2 
40C9 
4080 
0081 
4082 
4071 
0070 
0083 
0084 
00C8 
0004 
0005 


8001 


8010 


8011 


8012 


2008 
200E 


| 0001 


COBOL Hex 
Value | Value | Label Comment 


| BINDIM | Bind }Bind image attribute | }Bind image attribute | 


SHUTD Shutdown 
SHUTC | Shutdown complete 
RSHUTD | Request shutdown 
SIGNAL | Signal | 
| QEC Quiesce at end of chain 
| QCOMPL | Quiesce complete 
RELQ | Release quiesce 
| SBI | Stop bracket initialization 
BIS Bracket initiation stopped 
CANCEL | Cancel 
CHASE Chase 
BID Bid 
LUSTAT | LU status 
RTR Ready to receive 
CLEAR i Data traffic cleared/reset by host 
ENAPRS | Enable restart for DPS 6 or DPS 6 
3 | PLUS application | 
DSAPRS | Disable restart for DPS 6 or DPS 6 
| PLUS application > 
-RQRCVR | DPS 6 or DPS 6 PLUS application 
| request for receive 
| ALERT Alert 
| STAT Statistics 
Table D-6. Attribute a le 
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Appendix E 
$SSCCB TEMPLATE 


This appendix contains the template for SSSCCB, the Session 
Call Control Block (SCCB). This template is used in creating an 
SCCB for your LU Type 0 application. 
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Table E-1. SSSCCB Template. 


0000 SSSCCB : 
0000 SC SID | SESSION ID 
0000 SC. SGP | SESSION GROUP NAME 
~—60001 SC_SES | SESSION NAME 
0002 SC_APS | (FOR AIF USE ONLY) 
0004 SC_OPC | OPERATION CODE SC_OPC IS NORMALLY LOADED 
BY AN AIF MACROCALL 
0005 SC_RFl1 | RESERVED FOR FUTURE USE (1) 
0008 | SC STD | STD 
0009 | SC_RLN | REMOTE LU NAME IN ASCII 
000D SC_NOD | SNAPI NODE NAME IN ASCII 
0011 SC_TPN | TRANSACTION PROGRAM NAME IN ASCII 
0019 SCOUPT | SC OUTPUT PARAMETER AREA 
0019 SC_OCT | SC OUTPUT CONTROL WORD 
OO1A SC_PHB | FOR AIF USE ONLY 
OO1A SC_ADL | ACTUAL DATA LENGTH RECEIVED 
001C SC_INT | RECEIVED INTERRUPT TYPE 
o01D SC SQN | SEQUENCE NUMBER OF LAST SENT RU 
OO1E SC_RSQ | SEQUENCE NUMBER OF LAST RECEIVED RU 
OO1F _ SC_ESD | ERROR CODE OR SENSE DATA RECEIVED 
OO01F SC _MRU | MAXIMUM RU SIZE 
0021 SC_RCD | RETURN CODE OF SESSION CALL 
0022 — SC_ABT | SESSION ABORT REASON WHEN RCABRT SET IN 
_ | SC_RCD - REFER TO MACRO $SAIRC FOR 
DEFINITION 
0023 _ SC_TIM | TIME OF SESSION TERMINATION WHEN RCSTOP 
| | | SET IN SC_RCD OR TIME TO RELEASE 
| ABNORMALLY TERMINATED SESSION 
0026 SC_RF2 | RESERVED FOR FUTURE USE (2) 
0010 SCOUPS | SIZE OF SCCB OUTPUT AREA 
| 0029 | SCINPT | SESSION CALL INPUT PARAMETER AREA 
0029 SC_ICT | SESSION CALL INPUT CONTROL WORD 
002A SC BUF | -> SEND/RCV DATA BUFFER ~ 
002C SC _DLG | SEND/RECIEVE DATA BUFFER LENGTH 
| 002D -SC_SSD | SENSE DATA FOR SENDING INTERRUPT, -RSP 
| OR ABNORMAL TERMINATION 
002D SC MRS | SEND SQN FOR MESSAGE RESYNCHRONIZATION 
Q002E SC_ MRR | RCV_SQN FOR MESSAGE RESYNCHRONIZATION 
002F SC SIN | SEND INTERRUPT TYPE 
0030 SC_RF3 | RESERVED FOR FUTURE USE (3) 
000A SCINPS | SIZE OF SCCB INPUT AREA 
0033 SC REG | SAVE REGISTER SPACE 


0041 SC SIZ | SCCB SIZE 
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Table E-1 (cont.). $SSCCB Template 


ASCRIN 
ASCASR 
ASCWAN 
ASCTST 


OPERATION CODE (SC_OPC) 


ASCINI 
ASCTER 
ASCSND 
ASCRCV 
ASCSIN 


SSINIT 
SSTERM 
SSSEND 
SSRECV 
SSSI 

SSRI 

SSCASR 
SSWANY 


SSTEST 


SCRTNS 


SCRHBI 
SCRMSG 


SCRSTR 


SCSWRP 
SCSROD 
SCSLST 
SCSFMH 
SCSRSP 
SCSNEG 
SCSMNC 
SCACPT 


SCGTAT 
SCPOLL 


SCATRM 


| SESSION CALL OUTPUT 


| SEND WITH FMB 
| SEND +RSP 

| SEND -RSP 

| MESSAGE (CHAIN) NOT COMPLETE 
| J=ACCEPT, 
| THIS BIT SHOULD BE O IF SSIN 

| 1=GET ATTRIBUTE, O=RECEIVE D 


SESSION CALL INPUT CONTROL WORD (SC_ ICT) | 


| RETURN CONTROL WHEN SESSION CALL 


COMPLETED (SYNC.) 
DATA START AT RIGHT BYTE OF BUFFER 
USED FOR SSRECV TO WAIT FOR WHOLE 


| MESSAGE 

| RESTART, USED ONLY FOR $SINIT AFTER 

| SESSION HAS BEEN ABNORMALLY TERMINATED 
| SEND WITH REPLY (SET CD IN RH) 


SEND WITH DEFINITE RESP REQUIRED 
SEND LAST MESSAGE (SET EB IN RH) 
IN DATA RU, 


SSACPT WITH SC_OPC 


1=POLL, $SPOLL WITH SC_OPC 
THIS BIT SHOULD BE 0 IF S$SIN 
ABNORMAL TERMINATION 


CONTROL WORD (SC_OCT) 


REPLY REQUESTED (CD RECEIVED IN RH) 
DEFINITE RESPONSE REQUESTED 


| LAST MESSAGE RECEIVED (EB RECEIVED IN 


RH) 


| FMH IN RECEIVED DATA 


BEGINNING OF MESSAGE RECEIVED (BC IN RB) | 


| END OF MESSAGE RECEIVED (EC IN RH) 
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Table E-1 (cont.). S$SSCCB Template. 


Offset Meaning 


HF 
q 


| BITS USED FOR SESSION RESTART 


SCRSTS | STATION RECEIVED FOR MSG RESYNC, SET SON 

| TO SC_SQN, SC_RSQ | 
SCL6RX | DPS 6 OR DPS 6 PLUS APPLICATION 

| RETRANSMIT REQUIRED 
SCHORX | HOST APPLICATION RETRANSMIT REQUIRED, 
READY TO RECEIVE 


INTERRUPT TYPE 


THERE ARE 3 CATEGORIES OF INTERRUPT: 


1. EXPEDITED OR NORMAL FLOW DFC COMMAND 
2. CNM DATA 
3. INFORMATION PASSED TO OR FROM APPLICATION PROGRAM 


FFOO INTCAT CATEGORY 

8000 APPINF APPLICATION INFORMATION 

4000 | EXPDFC | EXPEDITED DFC COMMAND 

2000 INTBUF | INTERRUPT WITH BUFFER FOR DATA 
OOFF INTCOD | INTERRUPT TYPE CODE | 


SHUTDOWN 

SHUTDOWN COMPLETE 
REQUEST SHUTDOWN 

SIGNAL 

QUIESCE AT END OF CHAIN 
QUIESCE COMPLETE 
RELEASE QUIESCE 


STOP BRACKET INITIALIZATION 
BRACKET INITIALIZATION STOPPED 
CANCEL 
CHASE 

BID 


LU STATUS 
READY TO RECEIVE 


INFORMATION PASSED TO OR FROM APPLICATION 


iii. 


CLEAR 
ENAPRS 


DATA TRAFFIC CLEARED/RESET BY HOST 
ENABLE RESTART FOR DPS 6 OR DPS 6 PLUS 
APPLICATION 

DISABLE RESTART FOR DPS 6 OR DPS 6 PLUS 
APPLICATION 

DPS 6 OR DPS 6 PLUS APPLICATION REQUEST 
| FOR RECOVERY 


DSAPRS 


RQRCVR 
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Table E-1 (cont.). S$SSCCB Template. 


| CNM DATA 


ALERT 
STATISTICS OF REQMS (TYPE 4) SC_ESD=0; 
NO PARAMETER IN REQMS TO PASS TO 
APPLICATION 

SC_ESD=l1: REQMS RECEIVED IN RECEIVE 
BUFFER TO PASS PARAMETER 

SC_ESD=2: PARAMETER IN REQMS NEEDS TO BE 
PASSED 


ALERT 
STATIC 


sD0001 


| GET ATTRIBUTE TYPE 


| 0001 BINDM BIND IMAGE STARTING FROM BYTE] 
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Appendix F 
CONVERSATION VERB 
RETURN CODES 


The following pages show the unique return codes that are 
returned by AIF after the execution of each call or verb. As 
described in the Assembly language sections, bits 0 through 4 of 
the return code have special meaning. The tables in these 
section present the return codes both before and after these bits 
have been masked out. 

The following tables are included in this appendix: 


@® Table F-l1 provides the general return codes for the 
conversation verb 


@® Table F-2 provides the individual return codes 
@e Table F-3 provides sense data 
@® Table F-4 provides COBOL RETURN-A fields 


® Table F-5 provides general COBOL RETURN-B codes. 
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Table F-l. Individual Return Codes 


Hex | 
Value | Label Meaning 


VRABND | CONVERSATION ABEND/DEALLOCATED 
| VRSTOP SOPR STOP COMMAND RECEIVED; 
CHECK VP_TIM FOR TIME 

VRRINT RESERVED WHEN USING VERB 

VRSCNL SERV. REQ. NOT PROCESSED OR CANCELLED 
VRSCMP SERVICE REQUEST COMPLETED 

VRMASK MASK FOR INDIVIDUAL RETURN CODES (SEE 
7 | TABLE F-2) 


‘*Return codes noted by an asterisk can be received after the | 
execution of any verb. 
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| VROKAY | 
VRUNSU 
| VRPENT 
| VRPETR 
| VRSEPR 
VRSENT 
VRSETR 
VRSEPR 
VRIHLN 
VRHLNA 


VRNSND 
| VRNSDF 
| VRNCNF 
| VRRB2S 
| VRNSOR 
| VRNSCS 


| VRNRCV 


| VRNSRC 


| VRLRNF | 
| VRCSCD | 


| VRPDEA 


| VRSYSE 
| VRRNAV 
VRINOD 
VRIRID 
VRITPN 
| VRIVSR 


| VRLNER 
| VRIVFC 
| VRIMCS 
VRVBNS 
| VRSRMU 
| VRSLNS 
VRIVLL 
| VRIRTC 
| VRITYP 


| CONV. 
| STATE 
| CONV. 


| CONV. 


Individual Return Codes 


COBOL perry Macro | 
RETURN-B Peenguede 4 | Label Meaning | 


O.K. (NO ERROR) 
UNSUCCESSFUL 

PROG ERROR_NO TRUNC 
PROG _ ERROR | _TRUNC 
PROG ERROR PURGING 


| SVC ERROR NO TRUNC 


SVC_ERROR_TRUNC 
SVC_ERROR_ PURGING 
INVALID HOST LU NAME 
HOST LU NOT AVAILABLE 
CONV. NOT IN SEND STATE 

CONV. NOT IN SEND OR DEFER STATE 
CONV. NOT IN CONFIRM STATE 

RECEIVE BUFFER TOO SMALL 

CONV. NOT IN SEND OR RECEIVE STATE 
NOT IN RECEIVE OR CONFIRM 


NOT IN RECEIVE STATE 
NOT IN SEND, RECEIVE OR 

CONFIRM STATE 

AL RECORD NOT FINISHED YET 
IN CONFIRM SEND OR 


| CONFIRM DEALLOCATE RECEIVED 
| CONV. 


IN PEND _DEALLOCATE STATE 


| SYSTEM ERROR 

| RESOURCE NOT AVAILA 
INVALID NODE NAME 

| INVALID RESOURCE ID 

| INVALID TPN 


(LENGTH OF TPN = 0) 
INVALID SERVICE REQ. (OPERATION 
CODE) 


| DATA LENGTH ERROR ON SEND DATA 
/INVALID FUNCTION CODE ON MCL 2319 
“IMPROPER CALLING SEQUENCE 


VERB NOT SUPPORTED 


| ASR (VERB/SC) USAGE MIXED 


SYNC. LEVEL NOT SUPPORTED BY LU 
INVALID LOGICAL RECORD LENGTH 
INVALID RETURN CONTROL FOR ALLOCATE | 


| INVALID TYPE SPECIFIED 
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| COBOL | 
| RETURN-B | 


0150 


ETURN-B |} Language 


0151 
0152 
0153 
0154 
0155 


O17 

0192 
0193 
0194 
0195 
0208 


0209 
C210 


0211— 
0224, 


#0240 


*0241 


*0242 


*0243 


*0256— 


*0257 
*0258 
*0259 


*0784 
—*1809 
*1810 
*1811 
*1812 


ssembly | Macro 


0096 
0097 
0098 
0099 
OO9A 
009B 


OO0B0 
00Cc0 
00C1l 
00C2 
00C3 
00D0 


QOD1 


CGDZ 
00D3 
00E0 


00FO 
OOF1 
0OF2 
00F3 


0100 


0101 
0102 
0103 


0310 
0711 
0712 


0713 


0714 


Table F-2 (cont). 


VRNNAC 

VRNLAC 
VRNOAV 
| VRISTD 
VRILUT 
VRNOAT 


VRAETN 


| VRAEPI 
VRAEIP 


VRAESI 
VRAECM 
VRAESP 


VRAERP 


VRAENK 


VRSSHU 
VRURTO 
VRPGER 


VRADLU 
VRLKFL 
VRADPU 


| VRACSA 


VRSABT 


Individual Return Codes 


Meaning 


NODE NOT YET ACTIVE 


| NO ACTIVE LU FOR SESSION 


NO LU AVAILABLE FOR SESSION 


| INVALID STD NAME 


INVALID LU TYPE IN STD 
NO LU ATTATCHED BY REMOTE TP 


TPN NOT RECONIZED 


| PIP NOT ALLOWED 
PIP NOT SPECIFIED CORRECTLY 


SECURITY NOT VALID 
CONVERSATION TYPE MISMATCH 

SYNC. LEVEL NOT SUPPORTED BY 
PROGRAM 
RECONNECT LEVEL NOT SUPPORTED BY 
PROGRAM 

TRANS PRG NOT AVAILABLE NO RETRY 
TRANS PRG NOT AVAILABLE RETRY 


| ACC | NOT VALID ~ 


DEALLOCATE_NORMAL 
DEALLOCATE ABEND PROGRAM 
DEALLOCATE ABEND SERVICE 
DEALLOCATE ABEND TIMER 


SESSION UNBOUND BY HOST 
UNEXPECTEDLY 
SESSION SHUTDOWN BY HOST ORDERLY 


| YOU ARE TIMED OUT BY SOPR COMMAND 
SESSION ABORT DUE TO UNRECOVERABLE 
PROTOCOL ERROR 


ACTLU/DACTLU RECEIVED 

LINK FAILURE 

ACTPU/DACTPU RECEIVED 

SA (SOPR) 'ABORT' AIF NODE 
SS ABORT AIF GROUP 


*Return codes noted by an asterisk can be received after the 
execution of any verb. | 
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Table F-3 contains AIF specific sense data that is associated 
with certain AIF return codes. For sense codes not listed, refer 


to sense codes listed in the SNA6 Reference Summary or in the 
SNA§ Operator's Guide. 


Table F-3. Sense Data 


Meaning 


VRRNAV | | | INVALID CALLER 
| NO ASRBS AVAILABLE ON NODE 


| EXCEEDED MAX. NO. OF SESSION GROUPS 
TIME OUT PASSING A REQUEST TO PU 


VRIRID | ASRB NOT FOUND — 
CAN'T FIND A VALID SESSION GROUP 


| VRIMCS | [CAN'T PROCESS THIS CALL AT THIS TIME 
| | |CALL WHEN NOT IN SESSION ERROR 
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Fields 


COBOL Session Call RETURNS fields. 


Meaning 


ABEND-DEALLOCATE 


STOP-RCVD 


SERV-REQ-CANC 


SERV-REQ-COMP 


COBOL~ERROR 


Y The conversation has ABENDed and 
| therefore been deallocated 


Y | SOPR STOP command received. 
Y This request has been cancelled. 


The application must issue it again | 
| 1£ necessary. 


Y This request has been completed. 

Y Error in using COBOL interface to 
the AIF. See RETURN-B for return 
code. 


Table F-5. General COBOL RETURN-B Values 


{| Unrecognized parameter 


Parameter must be 1 byte long. 
Parameter must be 5 bytes long 
Default not acceptable 


Node name error 

Remote LU name error 
Not session-ID 

Unknown interrupt type 
Nondecimal digit 
Nonhexadecimal digit 
Error in conversion 
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Appendix G 
$SVPB TEMPLATE 


Table G-l contains the template for SSVPB, the Verb Parameter 
Block (VPB). This template is used in creating a VPB for your LU 
Type 6.2 application. 
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0000 
0000 


| 0000 


0001 
0002 


0004 


0005 
| 0007 


0008 


| 0009 


000D 
O01l 
8000 
0012 


| GO19 
0019. 


~QO1A 
OO1A 


001C 


001D 


OO1E — 


OO1F 


0021 
0022 


| 0023 


~—0026 
0010 
| 0029 
0029 
002A 
002C 
002D 


002F 
0030 
000A 
0033 
0041 


SSVPB 

VP_SID 
VP_SGP 
VP_SES 
VP_APS 


VP_OPC 
VP_RF1 
VP_SLV 
VP_STD 
VP_RLN 
VP_NOD 
VP_TPL 
VBTPNT 
VP_TPN 


VPOUPT 
VP_OCT 
VP_PHB 
VP_ADL 
VP_WAR 
VP_CST 


| VP_RFU 
VP_ESD | 


VP_RCD 
VP_CAR 


VP_TIM | 


VP RF2 


VPOUPS 
| VPINPT 


vP_ICT 
VP_BUF 
VP_DLG 
VP_TYP 


VP_CTL 
VP_RF3 
VPINPS 
VP_REG 
VP_SIZ 


Table G-l. 


Meaning 


SSVPB Template 


SESSION ID 
SESSION GROUP NAME 


SESSION NAME 


(FOR AIF USE ONLY) 


OPERATION CODE 

RESERVED FOR FUTURE USE 1 

SYNC. LEVEL USED BY CONVERSATION 0 = NONE, 
1 = CONFIRM 

STD NAME IN ASCII 

REMOTE LU NAME IN ASCII 

AIF NODE NAME IN ASCII 

LENGTH OF TRANSACTION PROG NAME 

DO NOT TRANSLATE TP NAME WHEN SET 

TP NAME (MAX. 14 BYTES) 


VERB OUTPUT PARAMETER AREA 
VERB OUTPUT CONTROL WORD 

(FOR AIF USE ONLY) | 
ACTUAL DATA LENGTH RECEIVE 
WHAT RECEIVED | 


| CONVERSATION STATE 


RFU : 
ERROR CODE OR SENSE DATA FOR SOME RETURN © 
CODES. REFER TO MACRO SSAIVR. 


| RETURN CODE OF VERB CALL 


CONVERSATION ABEND REASON WHEN VRBAND SET 
IN VP_RCD; REFER TO SSAIVR 

TIME OF SESSION TERMINATION WHEN VRSTOP SET 
IN VP_RCD, INDICATING THAT THE SOPR STOP 
COMMAND WAS RECEIVED 


| RFU 2 


SIZE OF VPB OUTPUT AREA 


| VERB INPUT PARAMETER AREA 


VERB INPUT CONTROL WORD 
-> SEND/RCV/LOG DATA BUFFER 
SEND/RCV DATA LENGTH 


| USED BY DEALLOCATE, PREPARE TO RECEIVE, AND 


SEND _ERROR VERBS TO SPECIFY TYPE 
SEND CONTROL INFOMATION TYPE 

RFU 3 

SIZE OF VPB INPUT AREA 

SAVE REG. SPACE 

VPB SIZE 
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Table G-l1 (cont). 


SSVPB Template 


OPERATION CODE 


C000 


VBALLO 


SSALLO, ALLOCATE 

USED BY AIF ONLY 

SSSDTA, SEND DATA 

SSRAW, RECEIVE_AND WAIT 

USED BY SSFLSH, $SCONF, $SCNFD, $SSERR, 
SSDEAL, SSPONR, $SPTOR, $SRTOS, WITH TYPE 
SET IN VP_CTL 


VERB CALL INPUT CONTROL WORD (VP_ICT) | 


0000 


| 0007 


VBCTLM 


VBRTNS 
VBRHBI 
VBFILL 


VBRSTR 
VBSWRP 
VBSLST 


VBLGDA | 


VBSRSP | 
VBSNEG | 
VBATCH | 
VBLOCK | 


VBRCTL | 


VBWALL 


VBIMMD | 
VBATRM | 


VERB CONTROL INFORMATION TYPE (VP_CTL) 
VBFLSE | 


VBCONF | 
VBCNED | 


VBRTOS 
VBSERR 


VBPTOR | 


VBPONR 
VBDEAL 


1=SYNC. PROC. (VERB ALWAYS SYNC.) 
DATA START AT RT. BYTE OF BUFF. 
FILL FOR SSRAW AND SSPONR VERB 0 = 
1 = LL 

RESERVED WHEN USING VERB (0 ALWAYS) 
SEND WITH REPLY (SET CD IN RH) 

SEND LAST MSG (SET EB IN RH) 

LOG DATA PRESENT (USED BY SEND ERROR OR 
DEALLOCATE ABEND) 

RESERVED WHEN USING VERB (0 ALWAYS) 
RESERVED WHEN USING VERB (0 ALWAYS) 
ATTATCHED, S$SATCH W/ VP_OPC = VBALLO 

LOCK FOR PREPARE TO RECEIVE VERB ($SPTOR) : 
0 = SHORT, 1 = LONG 

RETURN CNT'L (USED BY ALLOCATE ONLY) 

WHEN ALLOCATED 

IMMEDIATE 

RESERVED WHEN USING VERB (0 


BUFFER, 


FLUSH SEND BUFFER, $SFLSH 
CONFIRM, S$SCONF 
CONFIRMED, $SCNFD | 
REQUEST TO SEND, $SRTOS 
SEND_ERROR, $SSERR 
PREPARE TO RECEIVE, $SPTOR 
POST ON RECEIPT, $SPONR 

DEALLOCATE, $SDEAL 

MAX VALUE OF CONTROL INFORMATION TYPE 
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Table G-1 (cont). SSVPB Template 


| VERB OUTPUT CONTROL WORD 
REQUEST TO SEND RECEIVED WHEN SET 


| 0080 VBRRTS misoe 
0040 | VBPOST| CONV. POSTED (USED BY POST ON RECEIPT ONLY) | 


WHAT-RECEIVED INDICATORS 


Meaning 


VBRSND SEND INDICATOR RCV'D 

VBRCNF CONFIRM REQ. RCV'D 

VBRCDA CONFIRM DEALLOCATE RCV'D 
VBRCSN CONFIRM SEND RCV'D 

VBRLLT LL_ TRUNCATED 

VBRDATO DATA AVAILABLE WHEN LENGTH=0 
VBRDAT DATA RECEIVED | 
VBRDCP DATA_COMPLETE 

VBRDIC DATA_INCOMPLETE 


VBTPFL 


_VBTPSL 


VBTPAP 
VBTPAS 


VBTPAT 
VBTPPG | 
VBTPSV | 


FLUSH 


SYNC_LEVEL 
ABEND_PROGRAM 


ABEND SERVICE 
ABEND TIMER 


PROGRAM 
SERVICE 


RESET 
SEND STATE 


RECEIV 


E STATE 


RCV'D CONFIRM 
RCV'D CONFIRM SEND 
RCV'D CONFIRM DEALLOCATE 


DEFER 
DEFER 


STATE-~PREPARE TO RECEIVE 
STATE--DEALLOCATE 


PEND DEALLOCATE 


SYNC. 
BACKED 


POINT | 
OUT STATE 
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GLOSSARY 


basic information unit (BIU) 


The unit of data and control information that is passed 
between half-sessions. It consists of a request/response 
header (RH) followed by a request/response unit (RU). 


class of service 


A deSignation of the path control network characteristics, 
such as path security, transmission priority, and bandwidth, 
that apply to a particular session. The end user designates 
Class of service at sesSion initiation by uSing a symbolic 
name that iS mapped into a list of virtual routes, any one of | 
which can be selected for the session to provide the 
requested level oF service. 


configuration services 


One of the types of network Services in the system services 
control point (SSCP) and in the physical unit (PU); 
configuration services activate, deactivate, and maintain the 
Status of physical units, links, and link stations. 


contention state 


The state in which neither half-session is transmitting data 
or in which both half-sessions are transmitting data 
Simultaneously. The contention winner can be configured to 
be non-negotiable, in which case the specified primary or 
secondary LU would always be the winner when a contention 
state occurred. | 
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data flow control (DFC) 


A request/response unit (RU) category used for requests and 
responses exchanged between the data flow control layer in 
the session partner. 


end user 


The ultimate source or destination of application dataflowing 
through an SNA6 network. An end user may be an application 
program or a terminal operator. 


function management (fm) header 


One or more headers, optionally present in the leading 
request units (RUs) of an RU chain, that is provides 
information to: (1) select a destination at the session 
partner, (2) control the way that end-user data is handled at 
the destination, (3) change the characteristics of the data 
during the session, and (4) transmit status or user 
information about the destination (for example, a program or 
device). 


half-session | 
A component that provides FMD services, data flow control, | 
and transmission control for one of the sessions of a network 
addressable unit (NAU). 
er node 


A subarea node that contains a system services control point 
(SSCP); for example, a System/370 with OS/VS2 and ACF/TCAM. 


interrupt type 


The type of flag which is sent by either the host or the 
DPS 6 or DPS 6 PLUS during the session. These flage can be 
SNA6 commands or indicators or SPI control information, 


link 


The combination of the link connection and the link stations 
joining network nodes; for example, (1) a System/370 channel 
and its associated protocols, (2) a serial-by-bit connection 
under the control of synchronous data link control (SDLC). 


link connections 
The physical equipment providing two-way communication 
between one link station and one or more other link stations; 


for example, a communication line and data circuit 
terminating equipment (DCE). 
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link station 


The combination of hardware and software that allows a node 
to attach to and provide control for a link. 


logical unit (LU) 


A port through which an end user accesses the SNA6 network 
the functions provided by system services control points 
(SSCPs). An LU is capable of supporting at least two 
sessions--one with an SSCP and one with another logical 
unit--and may be capable of supporting many sessions with 
other logical units. 


LU-LU session 


A session between two logical units in an SNA6 network. It 
provides communication between two end users or between an 
end user and an LU services component. 


network addressable unit (NAU) 


A logical unit, a physical unit, or a system services control 
point. It is the origin or the destination of information 
transmitted by the path control network. 


node 


An endpoint of a link or a junction common to two or more 
links in a network. Nodes can be distributed or host 
processors, communication controllers, cluster controllers, 
or terminals. Nodes can vary in routing and other functional 
capbilities. 


pacing 
A technique by which a receiving component controls the rate 
of transmission of a sending component to prevent overrun or 
congestion. 

parallel sessions 
Two Or more currently active sessions between the same two 
logical units (LU‘'s) uSing different pairs of network 
addresses. Each session can have independent session 
parameters. 

physical unit (PU) 
The component that manages and monitors the resources of a 


node, aS requested by an SSCP via an SSCP-PU session. Each 
node of an SNA6 network contains a physical unit. 
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protocol 
The meaning of, and the sequencing rules for, requests and 
responses used for managing the network, transferring data, 
and synchronizing the states of network components. 

request header (RH) 
A request unit (ru) header preceding a request unit. 


request unit (RU) 


A message unit that contains control information such as a 
request code of FM header, end-user data, or both. 


request/response header (RH) 


Control information, preceding a request/response unit (RU), 
that specifies the type of RU (request unit or response unit) 
and contains control in formation associated with that RU. 


request/response unit (RU) 
A generic term for a request unit or a response unit. 
response 


(1) A message unit that acknowledges receipt of request; a 
response consists of a response header (RH), a response unit 
(RU), or both. (2) in SDLC, the control information sent 
from the secondardy station to the primary station. | 


response header (RH) 


A header, optionally followed by a response unit (RU), that 
indicates whether the response iS positive or negative and 
that may contain a pacing response. 


response unit (RU) 


A message unit that acknowledges a request unit; it may 
contain prefix information received in a request unit. If 
positive, the response unit may contain additional 
information (such as session parameters in response to bind 
session), or if negative, contains sense data defining the 
exception condition. 
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session 


A logical connection between two network addressable units 
(NAUS) that can be activated, tailored to provide various 
protocols, and deactivated, as requested. The session 
activation request and response can determine options 
relating to such things as the rate and concurrency of data 
exchange, the control of contention and error recovery, and 
the characteristics of the data stream. Sessions compete for 


network resources such as the links within the path control 
network. 


session partner 


One of the two network addressable units having an active 
session. 


SNA6 network 


The part of a user-application network that conforms to the 
formats and protocols of Systems Network Architecture. It 
enables reliable transfer of data among end users and 
provides protocols for controlling the resources of various 
network configurations. The SNA6 network consists of network 
addressable units, boundary function components, and the path 
control network. 


SNA6 node 


A node that supports SNA6 protocols 
SSCP-PU session 


A session between a system services control point (SSCP) and 
a physical unit (PU). SSCP-PU sessions allow SSCP‘'s to send 
requests to and receive status information from individual 
nodes in order to control network configuration. 


SSCP-SSCP session | 
A session between the system services control point (SSCP) in 
one domain and the SSCP in another domain. An SSCP-SSCP 


session is used to initiate and terminate cross-domain LU-LU 
sessions. 


Synchronous Data Link Control (SDLC) 


A discipline for managing synchronous, code-transparent, 
serial-by-bit information transfer over a link connection. 
transmission exchanges may be duplex or half duplex over 
Switched or nonswitched links. The configuration of the link 
connection may be point-to-point, multipoint, or loop. 


g-5 GR11-02 


System Services Control Point (SSCP) 


A focal point withing an SNA6 network for managing the 
configuration, coordinating network operator and problem 
determination requests, and providing directory support and 
other session services for end users of the network. 
Multiple SSCPs cooperating as peers with one another, can 
divide the network into domains of control, with each SSCP 
having a hierarcical control relationship to the physical 
units and logical units within its own domain. 
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SNA6 MANUALS 


Base 


Publication 


Number 


CR56 
CRS7 
CR58 
CR59 
CR60 
GR11 
GB88 
GX10 
Gx11 
Gx12 


MANUAL DIRECTORY 


Manual Title 


IBM Distributed Data Processing Overview 

SNA6 Network Configuration | 

SNA6 Interactive Terminal Facility User's Guide 
SNA6 Remote Job Entry Facility User's Guide 
SNA6 File Transfer Facility User's Guide 

SNA6 Application Programmer's Guide 

SNA6 Host System Programmer's Guide 

SNA6 Operator's Guide 

SNA6 Host System Operator's Guide 

SNA6 Internetworking User's Guide 


Refer to these IBM documents for host programming, operating, 


Base 


Publication 


Number 


SC27-0164 
SC27-0610 


SC27-0611 
SC30-3142 
SC30-3143 
SC30-3145 
SC23-0046 
SC33-0149 
SH20-9081 
SH20-9045 
SC33-0077 
S§C33-0133 
GC30-3084 


application, and configuration information: 


Manual Title 


ACF/VTAM Version 2 Messages and Codes 

ACF/VTAM Version 2 Installation/Resource 
Definition 

ACF/VTAM Version 2 Programming 

ACF/NCP/VS & SSP Installation (Release 2.1) 

ACF/NCP/VS & SSP Utilities (Release 2.1) 

ACF/NCP/VS & SSP Messages (Release 2.1) 

JES2 Initialization and Tuning 

CICS Resource Definition Guide 

IMS/VS Installation Guide 

IMS/VS Programming Guide for Remote SNA Systems 

CICS Application Programmer's Reference Manual 

CICS Intercommunication Facilities Guide 

Transaction Programmer's Reference Manual for LU 
Type 6.2 
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HVS 6 PLUS OPERATING SYSTEM MANUALS 


Base 
Publication | 

Number Manual Title 

HEO] ONE PLUS Guide to Software 
Documentation | 

HEO2 HVS 6 PLUS System Building and Administration 

HEO3 HVS 6 PLUS System Concepts 

HEO4 HVS 6 PLUS System User's Guide 

HEO5 HVS 6 PLUS System Programmer's Guide - 
Volume I 

HEO6 HVS 6 PLUS System Programmer's Guide - 
Volume II 

HEO7 HVS 6 PLUS Programmer's Pocket Guide 

HEO9 HVS 6 PLUS System Maintenance Facility 
Administrator's Guide 

HE1O HVS 6 PLUS Menu System User's Guide 

HELI HVS 6 PLUS Software Installation Guide 

HEL3 HVS 6 PLUS Migration Guide 

HE14 HVS 6 PLUS Application Development Overview. 

HELIS HVS 6 PLUS Application Developer's Guide 

HE16 HVS 6 PLUS System Messages. 

HE17 HVS 6 PLUS Commands 

HE18 HVS 6 PLUS Sort/Merge 

HE19 HVS 6 PLUS Data File Organizations and 
Formats 

HE21 HVS 6 PLUS Display Formatting and Control 

HE22 HVS 6 PLUS VISION Reference Manual 

HE23 HVS 6 PLUS Editors Manual 
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MOD 400 OPERATING SYSTEM MANUALS 


Base 
Publication 
Number Manual Title 
CZ02 GCOS 6 MOD 400 System Building and Administration 
Cz03 GCOS 6 MOD 400 System Concepts 
CzZ04 GCOS 6 MOD 400 System User's Guide 
Cz05 GCOS 6 MOD 400 System Programmer's Guide - 
Volume I 
CZ06 GCOS 6 MOD 400 System Programmer's Guide - 
Volume II 
C207 GCOS 6 MOD 400 Programmer's Pocket Guide 
Cz09 GCOS 6 MOD 400 System Maintenance Facility 
Administrator's Guide 
CZ10 GCOS 6 MOD 400 Menu System User's Guide 
CZ11 GCOS 6 MOD 400 Software Installation Guide 
CZ15 GCOS 6 MOD 400 Application Developer's Guide 
CZ16 GCOS 6 MOD 400 System Messages 
CZ17 GCOS 6 MOD 400 Commands 
CzZ18 GCOS 6 Sort/Merge 
CZ19 GCOS 6 Data File Organizations and Formats 
CZ20 GCOS 6 MOD 400 Transaction Control Language 
Facility 
CZ21 GCOS 6 MOD 400 Display Formatting and Control 
CZ22 GCOS 6 VISION Reference Manual 
GZ13 GCOS 6 MOD 400 R3.1 to R4.0 Migration Guide 
HCO] GCOS 6 MOD 400 Application Development Overview 
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INDEX 


SSACEB - ASCII-to-EBCDIC 
Conversion, 2-46, 4-45 


SSACPT - Accept Session Call, 
2-11 


SSALLO - Allocate Verb, 4-11 
SSATCH - Attached Verb, 4-15 


SSCASR - Cancel Asynchronous 
Request, 2-13 


SSCNFD -— Confirmed Verb, 4-19 
SSCONF - Confirm Verb, 4-17 
SSDEAL -— Deallocate Verb, 4-21 


SSEBAC - EBCDIC-to-ASCII 
Conversion, 2-47, 4-47 


SSFLSH - Flush Verb, 4-25 


SSGTAT - Get a Session 
Attribute, 2-15 


SSINIT 
SSINIT - Establish a 
Session, 2-18 
SSINIT - Restart a Session, 
2-21 

SSPOLL = Poll Session, 2-24 


SSPONR - Post On Receipt Verb, 
4-27 


SSPTOR - Prepare to Receive 
Verb, 4-29 


SSRAW - Receive and Wait Verb, 
4-32 


SSRECV - Receive Message, 2-26 
SSRI - Read Interrupt, 2-29 


SSRTOS - Request to Send Verb, 
4-36 


SSSDAT - Send Data Verb, 4-37 


SSSEND - Send Message, 2-31 
SSSERR -— Send Error Verb, 4-39 
SSSI - Send Interrupt, 2-35 
SSSRSP - Send Response, 2-38 


SSTERM - Terminate Session, 
2-40 


SSTEST - Test for Events, 2-42 
SSWAIT - Wait Verb, 4-43 
SSWANY - Wait On Events, 2-44 
Abnormal Termination, 6-3 


AIF 

AIF Alerts, 7-3 

AIF Maintenance Statistics, 
7-8 

AIF LU Type 6.2 Verbs 

(COBOL) (Tb1l), 5-17 

AIF Session Calls (Assembly 
Language) (Tb1), 2-10, 

AIF Session Calls (COBOL) 

Overall Architecture of AIF 
(Fig), A-2 

WORKING-STORAGE Section for 
AIF (Fig), 3-5 


Alerts 
AIF Alerts, 7-3 | 
IBM Alert Format (Fig), 7-4 


Application 
Application Interface 
Facility, 1-2 
Application Service 
Request/Reply Handling 
(Fig), A-4 


Architecture 
Overall Architecture of AIF 
(Fig), A-2 


Asynchronous 
Asynchronous Processing, 
2-4, 3-3 
Synchronous vs. 
Asynchronous Processing, 
2-4 g 3-3 
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INDEX 


Conversation Verbs (Assembly 
Language) (cont). 
SSSDAT - Send Data Verb, 


Basic Conversation Verbs, 4-l 


CICS Terminal Control Table 


Parameters, 1-4 4-37 
SSSERR - Send Error Verb, 
Communications Network 4-39 


Management, 7-3 SSWAIT - Wait Verb, 4-43 
Conversation Verbs (COBOL) 
CSACEB - ASCII to EBCDIC 
Conversion, 5-48 
CSALLO - Allocate Verb, 


Configuration Options, 6-2 


Confirmation Processing, 6-4 


Conversation 5-18 
Basic Conversation Verbs, CSATCH - Attached Verb, 
4-] 7 5-21 
COBOL Conversation Verbs, CSCNFD - Confirmed Verb, 
5-1 5-25 
Conversation Format, 5-2 CSCONF - Confirm Verb, 5-23 
Conversation States, 4-5, CSDEAL - Deallocate Verb, 
5-12 — 5-27 
Conversation Vero General CSEBAC ~- ASCII to EBCDIC 
Return Codes (Tbl), F-1l Conversion, 5-48 
Host-Initiated Conversa- CSFLSH - Flush Verb, 5-30 
tions, 4-7 , ae CSPONR - Post On Receipt 
LU Type 6.2 Conversations, 7 Verb, 5-32 
1-6 | | , CSPTOR - Prepare to Receive 
Verb, 5-34 
Conversation Verbs (Assembly CSRAW - Receive and Wait 
Langage) | Verb, 5-36 
SSACEB - ASCII to EBCDIC CSRTOS - Request to Send 
Conversion, 4-45 | Verb, 5-40 
SSALLO - Allocate Verb, | | CSSDAT - Send Data Verb, 
4-11 5-41 
SSATCH - Attached Verb, ? CSSERR - Send Error Verb, 
4-15 —_ 5-43 
SSCNFD - Confirmed Verb, CSWAIT - Wait Verb, 5-46 
4-19 
SSCONF - Confirm Verb, 4-17 Conversion 
SSDEAL - Deallocate Verb, SSACEB - ASCII-to-EBCDIC 
4-21 | Conversion, 2-46, 4-45 
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